Sub PickSheets()
Dim ShArr(), Sh
'Create an array of the sheets you want
ShArr = Array(Sheets("Sheet1"), Sheets("Sheet3"))
' Use a ForEach statement to loop though the sheets in the array
For Each Sh In ShArr
'Change value in A5 to 9. Note the use of "Sh." to represent the current sheet in the array
Sh.Range("A5") = 9
Next Sh
End Sub
Sub DeleteWords()
Dim ShArr(), Sh
ShArr = Array(Sheets("Blad1"), Sheets("Blad3"))
For Each Sh In ShArr
With Range("A1:A10")
.Replace What:="Total ", Replacement:="", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
.Replace What:="promo group", Replacement:="Replaced!", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
End With
Next Sh
End Sub
Replacement:="Replaced!"