Hiding rows based on criteria

[sudeepa123]

In a workbook with Multiple worksheets I need to hide certain rows in a range whose T$rownum cell is coloured . I need help with that .Here is the code I am working with .

Sub hide_rows()
Dim Rng As Range
Dim MyCell As Range
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Sheets(9)
Set Rng = Sht.Range("T5:T204")
For Each MyCell In Rng
If MyCell.Interior.Colorindex = 22 Then
MyCell.EntireRow.Hidden = True
End If
Next MyCell
End Sub

 

[VoG]

Perhaps

Sub hide_rows()
Dim Rng As Range
Dim MyCell As Range
Dim Sht As Worksheet
Set Sht = ThisWorkbook.Sheets(9)
Set Rng = Sht.Range("T5:T204")
For Each MyCell In Rng
    MyCell.EntireRow.Hidden = MyCell.Interior.ColorIndex = 22
Next MyCell
End Sub

 

[sudeepa123]

Dear VOG
The rows are still all visible after the macro has executed ..

 

[VoG]

It works for me. Click in a coloured cell in that range and run this

Sub test()
MsgBox ActiveCell.Interior.ColorIndex
End Sub

does it return 22?