The following macro loops through rows 5 to 500, and if the cell in Column AG
is dark gray (ie, has a Color Index of 16), hides that row:

Sub HideRows()
BeginRow = 5
EndRow = 500
ChkCol = 33
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Interior.ColorIndex = 16 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
End If
Next RowCnt
End Sub

This routine works fine on my PC at home (XL 2003), but on my Mac at work
(XL for MAC 2004) it poops out after hiding just the first gray row it comes
to. Why will this loop through the whole range on my PC but not my Mac?
Doesn't anyone have an alternative?

Please help. This is driving me insane. Thanks!