Speichern als PDF zum 2.

Liebe Excel Gemeinde
ich konnte hier im Forum schon manch guten Typ holen. Aber nun stehe ich auf dem Schlauch und komme nicht weiter.
Ich möchte eine Excel Blatt mit Zellbezügen als PDF speichern.
hier mein entsprechender Code

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