The dialog box comes up with file name formatted correctly and shows .xls as file type but when you choose save the dialog box disappears as if the file was saved but the file never gets saved. What am I doing wrong?
Thanks much for any help.![]()
Sub SaveAs() Dim TName As String Dim SvAs As String TechName = Range("N5").Value SvAs = Application.GetSaveAsFilename(InitialFileName:="Test Sheet for " & TName, FileFilter:="Excel Workbook (*.xls), *.xls", Title:="Save Workbook with Name") End Sub
Barry
Bookmarks