Save backup to different directory

[JamesT1]

Good Morning All

Been wrestling with an issue for past couple of hours with no joy....

I have a file on the C Drive.... At the beginning of each week the file name is changed with the name in "Sheet 1, Cell A3". Week 1,, Week 2, Week 3, etc.. The macro for changing the name and saving it on the C Drive works as it should.......

At the end of the week I also need this file to be backed up onto a different drive with its new name, in this case Drive 'H',

as an example; this week it would be saving Week 1.... then at the end of the week the user presses the button to make a backup of week 1, next week it would be saving Week 2 and making a backup of Week 2 etc

this is where I am running into problems. it will not save a backup copy.. this is the code I have been trying to use,,,

many thanks for your help

Jim

Sub Save_Backup()
' Creates a backup on the H Drive

Dim sFile As String
Dim sSaveAs As String
sSaveAs = Range("A3")

On Error Resume Next
Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="H:\Transport\DWR C Backup\" & sSaveAs
sFile = "H:\Transport\DWR C Backup\" & sSaveAs
           
Application.DisplayAlerts = True

ThisWorkbook.Close SaveChanges:=True
    
End Sub