Excel表中如果有些行是标识了颜色，就把它隐藏，ＶＢＡ中怎么实现

Excel表中如果有些行是标识了颜色，就把它隐藏，ＶＢＡ中如何实现
Sub hiddcolor()
  If MsgBox("确定结束任务?", vbYesNo) = vbYes Then
  ActiveWindow.LargeScroll ToRight:=-1
  With Selection.Interior
  .ColorIndex = 35
  .Pattern = xlSolid
  .PatternColorIndex = xlAutomatic
  End With
  End If
End Sub
用上述函数来给excel行标识颜色为３５，想写另一函数，sheet表从头到尾，如果发现行颜色为35，那么就隐藏该行，至到sheet表结束，如何实现？


------解决方案--------------------------------------------------------
Sub aa()

Dim x As Long
Dim y As Integer

For x = 1 To 65536

If Rows(x).Interior.ColorIndex = 35 Then

Rows(x).Hidden = True

End If

Next x

End Sub