Try C.offset(1,0)

Regards
Jamal
-----Original Message-----
i have a sorted column of dates. what i'm trying to do is
find if there
are any dates that are duplicates. if they are, they
would be
consecutive. this is what i've got so far.

Option Explicit
Sub FindDouble()
Dim c As Range
For Each c In Range("D1:D4000")
If c.Value = [c+1].Value Then
c.Font.Bold = True
End If
Next c
End Sub

c+1.Value doesn't work. how do i check the value of the
cell below the
current cell?


---
Message posted from http://www.ExcelForum.com/

.