Sheets.FillAcrossSheets (Excel)
Copies a range to the same area on all other worksheets in a collection.
FillAcrossSheets (Range, Type)
x = Array("Sheet1", "Sheet5", "Sheet7")
Sheets(x).FillAcrossSheets Worksheets("Sheet1").Range("A1:C5")
Arguments
The following argument is required
Range (Range) - The range to fill on all the worksheets in the collection. The range must be from a worksheet within the collection.
Optional arguments
The following argument is optional
Type (XlFillWith) - Specifies how to copy the range.
Possible return values are xlFillWithAll - Copy contents and formats, xlFillWithContents - Copy contents only, xlFillWithFormats - Copy formats only.