I am looking for the most effecient way to loop through a range and compare the value of the current cell to the value of the next cell in the range by rows.

I had considered doing a 1d array, but once i detemine that the cell+1 is not the same I need to offset reference titlerows and titlecolumns outside of the search range.

The inefficiency comes if I am at the last column in the defined search range, I need to compare to the first defined column in the next row.


This what I am working with right now, but im sure there is a better way to do it.
With sheet.range("A5:G10")
Set r = .find What:="something", searchorder:=xlByRows
If Not r Is Nothing Then
  firstAdd = r.address
  Do
     'Need to compare r to r+1 in range


     Set r=.findnext(r)
  Loop While Not r Is Nothing and r.address <> firstAdd
End If
End With