Try this:

Sub foreachrange()
Dim Mycells, Myrefs
Mycells = Array("A2", "A4", "A6", "A8", "A10", "A12")
For Each Myrefs In Mycells
If Sheet1.Range(Myrefs).Value 3 Then Sheet1.Range(Myrefs).Value = 20
Next
End Sub

Obviously replace the 3 and =20 with whatever you want.

Andrea Jones

"xlcharlie" wrote:

The basics of my code a

For each cell in Range("A1, B3, C5")
If cell.value=x Then
'change to this value
Else
'change to another value
End If
Next Cell

But this only seems to work on the first cell. What I am trying to do is
iterate through small group of cells (not necessarily in an array) to see
whether the date in each is a good business day. If not, the code replaces
the date with a string variable. Can you not use a For Each Loop for this?