View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
Gary''s Student Gary''s Student is offline
external usenet poster
 
Posts: 11,058
Default Mass add of a sheet to multiple workbooks

A very simple macro can open each workbook sequentially, add in the sheet,
close the workbook and move on to the next workbook. This example has
"special" worksheet in "master.xls". The code opens Book1.xls, updates it
and then moves on to Book2.xls:

Sub Macro4()
fls = Array("Book1", "Book2")
For i = 0 To 1
Workbooks.Open Filename:="C:\" & fls(i) & ".xls"
Windows("master.xls").Activate
Sheets("special").Copy Befo=Workbooks(fls(i) & ".xls").Sheets(1)
Windows(fls(i) & ".xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Next
End Sub

--
Gary''s Student - gsnu200726


"ddpderek" wrote:

Is it possible to add a sheet from one workbook or file to a bunch of
different work books at the same time or do I have have to copey it to them
all independently?