VBA Macro To Save And Copy File To Different Locations

[Zaigham]

Hi
Please provide me a macro to save an excel file at its original location as well as at a specific folder. I want to keep this macro at QAT so whenever I press its button, the opened file may be saved at its original location as well as at a specific location e.g., a folder named "Updated" with the same filename.
Thanks
Zaigham

[Excel Fox]

You probably already know how to assign a macro button in the QAT. Let me know in case you don't. Use this following code for what you've asked.

Sub SaveAndCopyToAnotherLocation()

    ActiveWorkbook.Save
    FileCopy ActiveWorkbook.FullName, "D:\Updated\" & ActiveWorkbook.Name
    
End Sub

[Zaigham]

Thanks for help. It gives me (Run-time error "70": Permission denied).

ActiveWorkbook.Save
    FileCopy ActiveWorkbook.FullName, "F:\WorkUpdates\" & ActiveWorkbook.Name

[Excel Fox]

Try replacing the second line with this

ActiveWorkbook.SaveCopyAs "F:\Update\" & ActiveWorkbook.Name

[Zaigham]

It works fine. Thank you very much.