I'm using Excel and create a button that runs the assigned macro:
Code:
ActiveWorkbook.SaveCopyAs "C:\" & Range("B2").Value & ".xls", FileFormat:=56
But this one just saves/overwrites the file itself.
Another one that just forces users to save the file; if not, cannot exit the window:
Code:
Sub forceSaveAs()
Dim NewBook
Dim fName
Set NewBook = Workbooks.Add
Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.saveAs Filename:=fName
End Sub
Is it a better way or how can I use SaveCopyAs to do so?