Save As Dialog Box Problem

All,

I have the following code - which used to work.

Public Sub SaveAsG4()
Dim SavFil As String

Call CopyToG4

SavFil = Sheet1.Range("G4").Value
Application.Dialogs(xlDialogSaveAs).Show SavFil

End Sub

When i step through the code - SavFil shows the correct information (The Save Name for the File)
But it isnt placing the information into the Dialog Box for the Save As......

Any Ideas.

Craig.