Hi geo

You can use SaveCopyAs, see the Excel help for more information.

Sub test()
ActiveWorkbook.SaveCopyAs "C:\ron.xls"
ActiveWorkbook.SaveCopyAs "C:\Data\ron.xls"
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"geo" wrote in message ...
How to save an excel doc in several folders with one click?