SaveCopyAs

tinfanide · #1 11-01-2011, 07:25 AM

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?