I have a col of dates. I wish to check to be sure they are all for the
current year and if any incorrect ones are found then change them to the
current year

oldjay

Assuming you just want to change the year. Tailor to fit your needs.

Sub ABC()
Dim rng as Range, cell as Range
set rng = Range(cells(1,"C"),cells(rows.count,"C").End(xlup) )
for each cell in rng
if year(cell.Value) < year(date) then
cell.Value = dateSerial(year(date),month(cell),day(cell))
end if
Next
End Sub


--
Regards,
Tom Ogilvy

"Oldjay" wrote in message
...
I have a col of dates. I wish to check to be sure they are all for the
current year and if any incorrect ones are found then change them to the
current year

oldjay

Thanks Works Great

oldjay

"Tom Ogilvy" wrote:

Assuming you just want to change the year. Tailor to fit your needs.

Sub ABC()
Dim rng as Range, cell as Range
set rng = Range(cells(1,"C"),cells(rows.count,"C").End(xlup) )
for each cell in rng
if year(cell.Value) < year(date) then
cell.Value = dateSerial(year(date),month(cell),day(cell))
end if
Next
End Sub


--
Regards,
Tom Ogilvy

"Oldjay" wrote in message
...
I have a col of dates. I wish to check to be sure they are all for the
current year and if any incorrect ones are found then change them to the
current year

oldjay