Save As...

Posted by Cory on June 27, 2001 8:36 PM

What code do I use to call the Save As... dialog box? Is there a way I can default the Save As Type to a workbook instead of a template? (Mine's saved as a template)

Posted by Ivan F Moala on June 28, 2001 2:47 AM

Sub Saveas_Test()
Dim Fs As String

Fs = Application.GetSaveAsFilename(fileFilter:="xls Files (*.xls), *.xls")
If Fs = "False" Then Exit Sub
ThisWorkbook.SaveAs Fs

End Sub

Posted by Cory on June 28, 2001 9:55 AM

Thanks Ivan... again! You're always there to help us. Sure do appreciate it!