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