Export to PDF active sheet & open. Macro

Hello, I found this macro code. This works fine, but I want to make one change and I don't know how. I need that PDF file to be saved with the configuration name. Please help.

 

Option Explicit

Dim swApp               As SldWorks.SldWorks

Dim swModel             As SldWorks.ModelDoc2

Dim swExportPDFData     As SldWorks.ExportPdfData

Dim sFilename           As String

Dim nErrors             As Long

Dim nWarnings           As Long

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swExportPDFData = swApp.GetExportFileData(1)

sFilename = Left(swModel.GetPathName, InStrRev(swModel.GetPathName, ".") - 1)

swExportPDFData.SetSheets swExportData_ExportCurrentSheet, ""

swExportPDFData.ViewPdfAfterSaving = True

swModel.Extension.SaveAs sFilename & ".PDF", 0, 0, swExportPDFData, nErrors, nWarnings

End Sub