sub ColorColumns
with columns("F")
.Interior.ColorIndex = xlnone
On error Resume Next
.Specialcells(xlconstants,xlTextValues).Interior.C olorIndex = 3
End With
End Sub

--
Regards,
Tom Ogilvy


"Sandeman" wrote:


I have a column of data, most of which are dates formatted as
DD-MM-YYYY. However, some of the data are not formatted properly due
to being incomplete. For example, instead of DD-MM-YYYY, the cell
contains "June 2002."

I would like a macro that identifies these "bad" dates and colors the
cell red for every bad date found. Any help?

Thanks again everybody.


--
Sandeman
------------------------------------------------------------------------
Sandeman's Profile: http://www.excelforum.com/member.php...o&userid=32440
View this thread: http://www.excelforum.com/showthread...hreadid=525667