Sub Test()
Dim rw As Range

For Each rw In ActiveSheet.UsedRange.Rows
If rw.Interior.ColorIndex = 37 Then 'Pale blue
rw.Hidden = True
End If
Next rw

End Sub

Go to the VB IDE (alt-F11), insert a code module (InsertModule), and paste
the code in.

Then in excel ToolsMacroMacros... and select Test and Run.

--
HTH

Bob Phillips

"srinivasan" wrote in message
...


Hello,

I want to use the cell colour with pale blue(not font colour). Expecting
your kind response.