Sub M_snb() 
  For Each it In sheets("Revenue Sheet").Range("D1:D2000") 
    it.EntireRow.Hidden = it.Interior.Color = RGB(0, 176, 240) 
  Next 
End Sub
If none of the cells has color RGB(0, 176, 240) then nothing will happen.
So please check : msgbox it.interior.color

NB these 3 lines of code replace both your macros.