Hi, jamewoong,
maybe like this:
Sub backup_1()
Dim FName As String
FName = ActiveWorkbook.Name
Sheets(Array("Total Loss", "Company 1", "Company 2", "Company 3")).Copy
ActiveWorkbook.SaveAs "C:\Files\" & Format(Date, "dd-mmm-yyyy ") & FName, FileFormat:=56
ActiveWorkbook.Close False
End Sub
Please mind that you will get a message from VBA if you run the same routine more than once on a given day asthe workbook does already exist. You would need to give details if you replace it (use Application.DisplayAlerts = False before saving and turn the event on after doing so by Application.DisplayAlerts = True). If you need all of the copies please come back for more information on how to add a running numbe for that day. For my part I would prefer to have the date in the way of Year first, Month as Day following.
Ciao,
Holger
Bookmarks