Sub targetamount()
Dim rowfirstcell as Range
Dim currentrow As Long
Dim currentcolumn As Integer
Dim selectedcell as Range

currentrow = 3
Set rowfirstcell = ActiveSheet.Cells(currentrow, 1)

While Trim(rowfirstcell.Value) < ""
For currentcolumn = 3 To 9
Set selectedcell = ActiveSheet.Cells(currentrow, currentcolumn)
If Selectedcell.Value ActiveSheet.Cells(1, 10) Then
selectedcell.Interior ColorIndex = 37
Else
selectedcell.Interior ColorIndex = 2
End If
Next
set rowfirstcell = rowfirstcell.offset(1,0)
currentrow = rowfirstcell.row
Wend
End Sub

--
Regards,
Tom Ogilvy

"Jim" wrote in message
...
Hello
I'm trying to change the color of the cells starting in the 3rd row if the
cell is cell (J1)
the macro stops at the "If Selected.Value ActiveSheet.Cells(1, 10) Then"
I can't get past this point.
Please Help


Sub targetamount()

Dim currentrow As Integer
Dim currentcolumn As Integer

currentrow = 3
Set rowfirstcell = ActiveSheet.Cells(currentrow, 1)

While Trim(rowfirstcell.Value) < ""
For currentcolumn = 3 To 9
Set selectedcell = ActiveSheet.Cells(currentrow, currentcolumn)
If Selected.Value ActiveSheet.Cells(1, 10) Then
selectedcell.Interior ColorIndex = 37
Else
selectedcell.Interior ColorIndex = 2
End If
Next

Wend


End Sub




Thank You
first timer :}