Office Basic 2003 - XP - Excel

I need a macro that will bring up the "Save As" window when button is
selected and to also insert a particular cell value in name field of "Save
As" window, then if possible to also save and exit all with this one macro.
I am a novice at this so a little extra explanation with it would be great.

I've been trying to use this macro that was posted but having trouble:

Sub SaveAs()
'Open the save as dialog box and show the value from A1
Dim myValue As String

myValue = ActiveSheet.Range("A1").Value
Dim fd As Dialog
Set fd = Application.Dialogs(xlDialogSaveAs)

If fd.Show(myValue) = False Then
'User pressed cancel, sheet not saved
'Add any additional code here if necessary
Else
'User has saved the file, update the data in range A1
'Run SetDate macro
SetDate
End If
End Sub


Thanks,
Guy

--
GT