Hi solo_razor,

You can use the 'Correl' function. If two rows are the same then it
returns '1'. Something like this:

Dim RCorr,NumOfSameRows as integer

RCorr = Application.WorksheetFunction.Correl(Rows(i), Rows(p))

If RCorr = 1 Then
NumOfSameRows = NumOfSameRows + 1
End If



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