Sub DoThings()
Dim oCell As Range

For Each oCell In Range("B5,B7,B9")
oCell.Font.Color = vbRed
Next oCell

End Sub



Chrissy.


Adrie Rahanra wrote
Goodmorning group,

Can someone help me with this one.
I'm looking for VBA code to do the following.
From 3 fixed cells (P50, P71 and P93) I want to select the
first, follow procedure and than loop for the next cell
and repeat the procedure.

Thanks in advance.

greetz,
@3