Try this

Sub Test()
Dim rw As Range

For Each rw In ActiveSheet.UsedRange.Rows
If rw.Interior.ColorIndex = 34 Then
rw.Hidden = True
End If
Next rw

End Sub



--
HTH

Bob Phillips

"srinivasan" wrote in message
...
Hell friends,

I want to know whether it is possible to create a code which by invoking
it
to run should hide the rows which are highlighted by a particular
colour.
If so any one will help me by providing it.