Hello,
I have a question concerning the following simple macro. Macro is used to convert PDF files into solidvorks document. Macro works fine, but if the file is not saved shows an error message. I would like if the file is not saved to show a message to the user: "Please first save the file." After recording the macro file to continue.
Thanks in advance for your help.

Dim swApp As SldWorks.SldWorks

Dim swModel As ModelDoc2

Dim lErrors As Long

Dim lWarnings As Long

Dim FileName As Variant

Dim Path As String

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

If swModel Is Nothing Then

    MsgBox "Please first open solidvorks file."

    Exit Sub

End If

Dim exportData As SldWorks.ExportPdfData: Set exportData = swApp.GetExportFileData(swExportPdfData)

exportData.ExportAs3D = True

Path = "D:\"

FileName = swModel.GetTitle

FileName = Left(FileName, Len(FileName) - 7)

FileName = Path & FileName & ".pdf"

swModel.Extension.SaveAs FileName, swSaveAsCurrentVersion, swSaveAsOptions_Silent, exportData, lErrors, lWarnings

End Sub