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: Date-Time Functions – TimeSerial() and TimeValue()
2. VBA-Excel: Copy/Paste data - Copy the data from a call and paste it to another cell
3. VBA-Excel: Cells Ranges Offset - Active Cell
4. Excel-VBA : Change Passwords for all the WorkSheets in one shot
5. FileSystemObject:OpenTextFile Method