same response. Compile error: can't assign to array and highlights ShArr from line three: ShArr = Array(Sheets("Coles"), Sheets("Woolworths"))
Parry suggested the same : With Sh.Range("A:A") in his post on this topic. I am thinking i can do a workaround by grouping the sheets, selecting col A, and then setting the delete dogs loose.
Grouping the sheets comes back with :
Sheets(Array("Coles", "Woolworths")).Select
so, macro seems to be:
Sub Macro6()
'
' Macro6 Macro
Sheets(Array("Coles", "Woolworths")).Select
Sheets("Woolworths").Activate
Columns("A:A").Select
Selection.Replace What:="total", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.Replace What:="promo group", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
End Sub