Saving in Multiple Locations (Microsoft Excel)

You may have a need to routinely copy a workbook to multiple locations on your system. For instance, the open workbook may need to be copied to a local hard drive and to several mapped drives that are actually on your office network.Excel doesn’t have a built-in capability to do this, but if the various locations are well defined, you can create a macro that will do the saving for you. The following macro is an example of such a tool:Sub SaveToLocations() Dim OrigName As String OrigName = ActiveWorkbook.FullName ActiveWorkbook.SaveAs “G:” + ActiveWorkbook.Name ActiveWorkbook.SaveAs “L:” + ActiveWorkbook.Name ActiveWorkbook.SaveAs “K:” + ActiveWorkbook.Name ActiveWorkbook.SaveAs “S:” + ActiveWorkbook.Name ActiveWorkbook.SaveAs OrigNameEnd Sub

Source: Saving in Multiple Locations (Microsoft Excel)