Highlighting active rows

[Michael M]

Hi All
I copied this code from one of Bills Links, but it refuses to work.
It gives an object required error from the second line.
Any clues ??
Regards
Michael M

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim IColor As Integer
On Error Resume Next
IColor = Target.Interior.ColorIndex
  If IColor < 0 Then
   IColor = 36
   Else
       IColor = IColor + 1
   End If
If IColor = Target.Font.ColorIndex Then IColor = IColor + 1
Cells.FormatConditions.Delete
    With Range("A" & Target.Row, Target.Address)
        .FormatConditions.Add Type:=2, Formula1:="TRUE"
        .FormatConditions(1).Interior.ColorIndex = IColor
    End With
    With Range(Target.Offset(1 - Target.Row, 0).Address & ":" & _
    Target.Offset(-1, 0).Address)
    .FormatConditions.Add Type:=2, Formula1:="true"
   .FormatConditions(1).Interior.ColorIndex = IColor
   End With
End Sub

 

[Cindy Ellis]

Running Excel 2000 on Windows 2000 it works perfectly for me with no modifications...but you do have to put the code in the Worksheet code page not the workbook code or a module.
Hope this helps,
Cindy

 

[Michael M]

Ok, Thanks Cindy.
Smitty is posting me a workbook with solutions and examples relating to this issue.

Regards
Michael M

 

[Michael M]

Cindy

Arrgh !!.......I just rebooted for a completely unconnected issue and, yep.
It works fine.
Sometimes I hate windows !!

Regards
Michael M