In diesem Beispiel wird der Bereich A1:C5 in Sheet1, Sheet5 und Sheet7 mit dem Inhalt desselben Bereichs in Sheet1 gefüllt.
x = Array("Sheet1", "Sheet5", "Sheet7") Sheets(x).FillAcrossSheets _ Worksheets("Sheet1").Range("A1:C5")