****al

Sub BUandSave2()
'Saves the current file to a backup folder and the default folder if desired
'Note that any previous backup is overwritten

Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs FileName:="C:\mydata\" & _
ActiveWorkbook.Name

''ActiveWorkbook.Save''add this line if you want to save to default folder
also

Application.DisplayAlerts = True

End Sub

Gord Dibben XL2002


On Mon, 3 Nov 2003 04:11:22 -0800, "****al" wrote:

Is there any macro when i run it will take a backup of
my excel file in c:\mydata folder.

Thanks in Advance.

****al