It sounds like you simply want to show the SaveAs dialog box... you can do as
follows:

Sub Example()
Dim oDialogSaveAs As FileDialog

Set oDialogSaveAs = Application.FileDialog(msoFileDialogSaveAs)

With oDialogSaveAs
.InitialFileName = Format(Date, "ddmmmyyyy")
.Show

End With
End Sub

If that's not it. Post the code you have.

--
Best regards
Robert, Excel MVP
Author of RibbonX: Customizing the Office 2007 Ribbon:
Find me at http://www.msofficegurus.com - be part of it!
FORUM: http://www.msofficegurus.com/forum/