Sub AB()
For Each cell In Range("A1, B3, C5")
Debug.Print cell.Address
Next cell
End Sub

produces:
$A$1
$B$3
$C$5

so your problem isn't in looping through the cells and there is no sense to
going to something more convoluted to achieve what is already being
achieved.

--
Regards,
Tom Ogilvy


"xlcharlie" wrote in message
...
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?