Similar change, multiple worksheets

[maestro_01]

Hello All,

This may have been asked several times, but I just need some clarification on where to start. I want to have a function that quickly adds an a similar item to several worksheets. How would I go about doing this?

[mikerickson]

Perhaps the .FillAcrossSheets method would be useful to you.

Dim mySheetNames As Variant

mySheetNames = Array("Sheet2", "Sheet1", "Sheet3")
With ThisWorkbook.Worksheets(mySheetNames)
.Item(1).Range("A1").Value = "new": Rem note .Item(1) is Sheet2
.FillAcrossSheets Range:=.Item(1).Range("A1:D26"), Type:=xlFillWithContents
End With

[maestro_01]

hey thanks a lot! This is a good start, will definitely give this a try.