Adjust your code as follows:
txtFileName = Application.GetSaveAsFilename(ThisWorkbook.FullName, "Excel Macro-Enabled Workbook (*.xlsm), *.xlsm,PDF File (*.pdf),*.pdf", , "Save As XLSM or PDF file")