Hi,

This matches to your EXACT requirement
================================================== ======
Sub del_date_col()
Dim rng, cel As Range

For Each cel In UsedRange
If IsDate(cel) Then cel.EntireColumn.Delete
Next
End Sub
================================================== ======

but not sure if thats exactly what you want....

The above code will delete the entire column in the used range,
whenever it finds that there is a valid "Date" in that field

Hope this helps

vikram < wrote:

macro to find date format in a cell and delete that entire row

i have dates in a column and date keeps changing, i want that if a
macro find date in a column , it deletes that entire row

help me
thank u so much everyone for ue help


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