saving
Sub BUandSave2()
'Saves the current file to a backup folder and the default folder
'Note that any backup is overwritten
Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs FileName:="G:\" & _
ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub
Edit for your mem stick drive letter.
Mine is G:
Gord Dibben MS Excel MVP
On Tue, 17 Jul 2007 23:58:01 -0700, rouna
wrote:
apply office 2003 changes to memory stick & hard disk at the same time
|