Thread: backup
View Single Post
  #5   Report Post  
mark
 
Posts: n/a
Default

thanks for this.

mark


-----Original Message-----
Mark, here is one way, from a post by Gord Didden

You could create a macro that will save the file at the=20

default location and=20
a
copy to the folder of your choice.

The macro could be run manually or in beforesave code in=20

ThisWorkbook.



Sub BUandSave2()
'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As=20

Boolean, Cancel As=20
Boolean)
'Saves the current file to a backup folder and the=20

default folder
'Note that any backup is overwritten
Application.DisplayAlerts =3D False
ActiveWorkbook.SaveCopyAs FileName:=3D"E:\Backup=AD\" & _
ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts =3D True
End Sub



if you are new to macros you may also what to have a=20

look here on getting=20
started with macros

http://www.mvps.org/dmcritchie/excel/getstarted.htm




--=20
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can=20

benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003







Gord Dibben Excel MVP


"Mark" wrote in=20

message=20
...
when i save my budget report workbook, can i also save=20

my
backup copy held in a diffrrent drive.

thanks

mark=20



.