i have a sorted column of dates. what i'm trying to do is find if ther
are any dates that are duplicates. if they are, they would b
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 th
current cell

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