SaveCopyAs

[tinfanide]

I'm using Excel and create a button that runs the assigned macro:

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:

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?

[macropod]

Hi tifanide,

If you want the user to continue working in the newly-saved workbook, you could use:
ActiveWorkbook.SaveAs Filename:="C:\" & Range("B2").Value & ".xls", FileFormat:=56

[tinfanide]

Thanks for that.