pdf erstellen - Dateinamen automatisch vergeben

Mit folgendem Code erstelle ich "auf Knopfdruck" eine pdf-Datei:

Private Sub CommandButton3_Click()
Sheets("charts").Select
Application.ActivePrinter = "Acrobat PDFWriter on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat PDFWriter on LPT1:"
Sheets("input").Select
End Sub

Der Vorgang wird unterbrochen, da zwischendurch ein Name fuer die pdf-Datei eingegeben werden muss. Als Namen moechte ich den Inhalt der Zelle A2 von Sheet "input" verwenden.
Kann man das in den Code aufnehmen und automatisieren?

Danke schonmal!
Joerg