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

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/

.

Both of these examples will work.....

For...Next example
Assumption: there could be holes in the data and you need to chec
every cell.
Assumption: if the second cell was duplicate bold the first and not th
second

Public Sub IncrementFor()

Dim x As Integer
For x = 1 To 4000

If ActiveSheet.Cells(x, 4) = ActiveSheet.Cells(x + 1, 4) Then
ActiveSheet.Cells(x, 4).Select
Selection.Font.Bold = True
End If

Next x

End Sub

Do...Loop example
Assumption: there are no holes in the data and you only need to go dow
column 'd' untill a cell is blank
Assumption: if the second cell was duplicate bold the first and not th
second

Public Sub IncrementDo()

Dim x As Integer
x = 1
Do Until ActiveSheet.Cells(x, 4) = ""

If ActiveSheet.Cells(x, 4) = ActiveSheet.Cells(x + 1, 4) Then
ActiveSheet.Cells(x, 4).Select
Selection.Font.Bold = True
End If
x = x + 1
Loop

Mark Wielgus
www.AutomateExcel.co

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