The ActiveCell seemed to be throwing a hitch in things. This code worked
for me:

Public Sub Highlight()
Dim rng As Range
Dim i As Long

Set rng = Selection

For i = 1 To rng.Rows.Count
If rng.Cells(i, 1).Offset(0, 1).Value = 1 Then
rng.Cells(i, 1).Interior.ColorIndex = 6#
End If
Next i

End Sub

Ed

"aseret" wrote in message
...
I am trying to get the cells in one column to show highlighted given the
value in the adjacent cell in the next column =1, if not then no format
change is needed. The macro I have pieced together is listed below but it
It
works for one row and then does not drop down to the next row.


Public Sub Highlight()
For Each cell In Selection
If cell.Offset(0, 1) = 1 Then
ActiveCell.Select
Selection.Interior.ColorIndex = 6#
Pattern = xlSolid
End If
Next
End Sub