View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
zantor[_23_] zantor[_23_] is offline
external usenet poster
 
Posts: 1
Default How to hide rows

Michael:

This code should do it..

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



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