Speichername soll automatisch vorgeschlagen werden

Sub speicher_default()
Dim filnam As String
filnam = .Range("P1")
End With
Application.Dialogs(xlDialogSaveWorkbook).Show filnam
End Sub

Leider funktioniert das aber nicht. Es ist so, dass ich eben möchte, dass jeweils die Projektnummer (in Zelle P1) als Speichername automatisch vorgeschlagen wird. Es soll aber kein Speicherort automatisch vorgeschlagen werden, da das File jeweils an unterschiedlichen Computern verwendet wird.
Geht das irgendwie?
lg Patricia