sav excel doc in various folders one click

[geo]

How to save an excel doc in several folders with one click?

 

[Ron de Bruin]

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