"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

looks like you are using activecell.select when you should be using cell as
referenced in your loop. Try this

Public Sub Highlight()
Dim myCell As Range
For Each myCell In Selection
If myCell.Offset(0, 1) = 1 Then
myCell.Interior.ColorIndex = 6#
myCell.Interior.Pattern = xlSolid
End If
Next myCell
End Sub

Paul D