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