I think Bob misread your message. I understood it to be that you want the
zero date (not all dates) deleted. Here is a minor modification
Public Sub ProcessData2()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long
Dim iLastRow As Long

With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = 1 To iLastRow
If IsDate(.Cells(i, TEST_COLUMN).Value) And .Cells(i,
TEST_COLUMN).Value = 0 Then
.Cells(i, TEST_COLUMN).ClearContents
End If
Next i

End With

End Sub

best wishes

--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email