save as dailog box

Posted by thomas venn on May 20, 2000 5:57 PM

Hi, Can anyone help me with a dialog box for save as? i want a macro to display the dialog box for "save as", then i can type in a name for the file.

thanks in advance,

Thomas

End Sub

Posted by Ivan Moala on May 20, 2000 7:25 PM

Thomas try;

Sub SavesaAs()
Dim FileNm

FileNm = Application.GetSaveAsFilename
If FileNm = False Then End
ActiveWorkbook.SaveAs FileNm

End Sub

NB: FileNm must be a variant NOTHING eles

Ivan