I currently have the following macro that highlights "offsets" in my spreadsheet.
Dim Cell As Variant
For Each Cell In Range("B2:B2500")
Dim rng As Range
Set rng = Range(Cell, Cell.Offset(1, 0))
If Application.WorksheetFunction.CountIf(Range("B2:B2500"), Cell) > 1...