Dim i As Long, lastRow As Long, rng As Range
Dim n As Long
Dim str As String
Dim count As Long

count = 0

Sheets("Route 1A (IN)").Select

lastRow = Range("A65536").End(xlUp).Row

Set rng = Range("C4:C" & lastRow) 'Start on row 4

If lastRow = 4 Or lastRow < 4 Then Exit Sub


For i = lastRow To 4 Step -1
n = 4
For n = lastRow To 4 Step -1
If (Range("C" & n) = Range("C" & n + 1)) Then
count = count + 1
Cells(4, 7).Value = count
Else
End If
Next n
Next i

This is what I've got, but doesn't work


--
kevinhd
------------------------------------------------------------------------
kevinhd's Profile: http://www.excelforum.com/member.php...o&userid=24828
View this thread: http://www.excelforum.com/showthread...hreadid=385521