Thanks for your assistance James. However, I did find a macro that will work and here it is for not only your information but all others Excel buddies out there that might need this someday.
Private Sub CommandButton1_Click()
Dim Fs As String
Fs = Application.GetSaveAsFilename(fileFilter:="Microsoft Excel File (*.xls), *.xls")
If Fs = "False" Then Exit Sub
ThisWorkbook.SaveAs Fs
End Sub
I assign the macro to the button and it saves the file as requested.
Thanks again.
