Save to PDF instead of .xlsm

[zplugger]

This code now saves to xlsm,how can I get it to save as PDF instead? Using office 2013

Dim varFullName As Variant
    Dim strFileName As String

    Cancel = True

    strFileName = ThisWorkbook.Sheets("today").Range("c16").Value
varFullName = Application.GetSaveAsFilename(InitialFileName:=strFileName, _
                                                fileFilter:="Microsoft Excel Workbook (*.xlsm), *.xlsm")

    If varFullName <> Cancel And varFullName <> False Then
          On Error GoTo FileNotSaved
              Application.EnableEvents = False
                  ThisWorkbook.SaveAs Filename:=varFullName
              Application.EnableEvents = True
    End If