You can use the GetSaveAsFilename method. An example is shown below. For more
information, you can search for the topic "GetSaveAsFilename method" in the
VBA online help.
Sub obtain_filename()
Dim fileSaveName As String
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:="MyFile", FileFilter:="Text Files (*.txt), *.txt")
If fileSaveName < False Then
MsgBox "Save as " & fileSaveName
End If
End Sub
Regards,
Edwin Tam
http://www.vonixx.com
"J S" wrote:
I want to create an excel macro that display the saveas dialog box to the
user, how do I do that?
i.e. I want the user to save the current document, but when I use
thisworkbook.save or thisworkbook.saveas excel does NOT display the saveas
dialog box where the user can select the filename and directory he wants to
save to.
-J