Interior Colour Selection Query

Is it possible to have a macro scan the range A2:AF300 and if any cells have an interior color index number of 33 i.e.

    With Selection.Interior
        .ColorIndex = 33
        .Pattern = xlSolid
    End With

If it finds any cells then select the range A:AF of the row the cell is in and colour the whole row using the above code?

Thanks

Tim.