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
Bookmarks