Michael,

You can use the code below or download the file named 'Michael168.xls'
below.

Sub CompareCells()
Dim c, c1, r, iCounter As Integer
r = 1
iCounter = 0

Do Until Cells(r, 1) = ""

For c1 = 1 To 8
For c = 1 To 8
If Cells(r, c1) = Cells(r + 1, c) Then
iCounter = iCounter + 1
End If
Next c
Next c1

If iCounter = 5 Then
Rows(r).Select
Selection.EntireRow.Hidden = True
End If

r = r + 1
iCounter = 0

Loop

End Sub

File Attached: http://www.exceltip.com/forum/attach...?postid=287736 (michael168.xls)

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/