Makro funktioniert auf einem Mal nicht mehr

Sub Eigene_Dateien()
Dim varRetVal As Variant, strInitFileName As String, Datname As String
Dim pfad As String
pfad = Environ("Userprofile") & "\Documents\"
Datname = Sheets("PDF").Range("D10").Text & ".xlsm"
varRetVal = Application.GetSaveAsFilename( _
InitialFileName:=pfad & Datname, _
FileFilter:="Microsoft Excel-Dateien (*.xlsm), *.xlsm", _
Title:="Dienstplanorganizer 2014")
If varRetVal = False Then Exit Sub
ActiveWorkbook.SaveAs varRetVal
End Sub