Makro xls to pdf

Sub pdf_erzeugen()
' pdf_erzeugen Makro
' Makro am 04.10.2007 von julia aufgezeichnet
Application.ActivePrinter = "FreePDF XP auf PDF1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"FreePDF XP auf PDF1:", Collate:=True
End Sub

Kann man das Makro so erweitern das er das pdf immer in den Ornder speichert in dem sich auch die xls befindet und das die pdf mit folgendem Namen gespeichert wird:
"Zellinhalt aus C4"_"ZellinhaltD7"threads.pdf