Excel Makro PDF erstellen

Sub erstelle_PDF()
'  
' erstelle_PDF Makro 2013 von PauleVBA@ <a href="http://www.gutefrage.net">www.gutefrage.net</a>  
' gibt eine PDF der aktuellen Kalkulation aus  
'  
' Tastenkombination: Strg+f  
'  
Dim strPfad As String
Dim strDateiName As String
Dim strSpeicher As String

    strPfad = "O:\Eingeschriebene Briefe\2014\"  
    
    Do While strDateiName = ""  
        MsgBox "Bitte einen Dateiname eingeben!", vbExclamation, "Info"  
        strDateiName = InputBox("Dateiname eingeben:", "Speichern-Dialog")  
    Loop
    
    strSpeicher = strPfad & strDateiName

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        strSpeicher _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, From:=1, To:=2, OpenAfterPublish:=False

End Sub