VBA-Excel : 3D-Ranges – FillAcrossSheets Method

By using FillAcrossSheets you can copy the Range of one worksheet to other multiple worksheets.

Steps:

• Create an array and assign multiple worksheets names ( in which the data to be copied), as an array elements.
• Copy the range of main worksheet and paste it to the other sheets using FillAcrossSheets.

Function FnFillAcrossSheets()

         arrCombinedArray = Array("Sheet2", "Sheet3", "Sheet4")

         Sheets(arrCombinedArray).FillAcrossSheets.Worksheets("Sheet1").Range("A1:B5")

End Function 

This function will copy the A1 to B5 Range of data from sheet1 and fill the same data in "Sheet2", "Sheet3", "Sheet4"

Also Read:

1. VBA-Excel: Create or Add Worksheets at the Run time.
2. VBA-Excel: String Functions – Replace()
3. Excel-VBA : Prevent Adding New Worksheet
4. VBA-Excel: Select and Activate Cells - Activate