saving

[Guest]

apply office 2003 changes to memory stick & hard disk at the same time

 

[Gord Dibben]

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