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:
strNewFileName = Application.GetSaveAsFilename(InitialFileName:="Test.xls", Title:="Test Save Procedure")