Speichern als PDF

Private Sub formSpeichern_Click()
strDateiname1 = Range("a2")
'Besucher
strDateiname2 = Range("n2")
'Datum
strDateiname3 = Range("m2")
'Woche
strDateiname4 = Range("h2")
'Loge
Dateiname = Trim(Application.InputBox(prompt:="Bitte Tages Datum hier eintragen und bestä _
tigen  eingeben:"))
Select Case Dateiname
Case "", False
ActiveWorkbook.Close SaveChanges:=False
Case Else
On Error GoTo NameUngueltig
ThisWorkbook.SaveAs Filename:="C:\Users\Rolf\Desktop\test\" & strDateiname1 & "_" &  _
strDateiname2 & "_" & "KW" & "_" & strDateiname3 & "_" & strDateiname4 & ".pdf"
ThisWorkbook.SaveAs Filename:="C:\Users\Rolf\Desktop\test\" & strDateiname1 & "_" &  _
strDateiname2 & "_" & "KW" & "_" & strDateiname3 & "_" & strDateiname4 & ".xls"
ThisWorkbook.SaveAs Filename:="C:\Users\Rolf\Desktop\test\" & strDateiname1 & "_" &  _
strDateiname2 & "_" & "KW" & "_" & strDateiname3 & "_" & strDateiname4 & ".xlsm"
End Select
Application.Quit
Exit Sub
NameUngueltig:
MsgBox "Der Dateiname enthält ungültige Zeichen!" '
End Sub