****al,

Try something like

ThisWorkbook.SaveCopyAs filename:="C:\mydata\" & Thisworkbook.Name


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


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

Thanks in Advance.

****al