Axxess,
Do you mean VBA or
VB - I'm assuming you mean VBA (i.e. the language packaged with Excel). If its
VB you're after then a slightly different answer will apply.
You do this by using Application.GetSaveAsFilename, which will open a Save As dialog box for the user to manually enter a save file name. The method returns a string which can then be used to save the file. An example would be as follows:
Code:
Sub TestSave()
Dim strNewFileName
strNewFileName = Application.GetSaveAsFilename(InitialFileName:="Test.xls", Title:="Test Save Procedure")
ThisWorkbook.SaveAs Filename:=strNewFileName
End Sub