I tested.
What are you trying to do and exactly what did you do with the offering?
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Ladymuck" wrote in message
...
Can't get this solution to work, keep getting type mismatch errors.

"Don Guillett" wrote:

From a post by Bob Phillips modified by Bernard V Liengme

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



--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Ladymuck" wrote in message
...
If I do CRTL+ H and type in 00/01/1900 and set it to replace with
nothing,
it
works fine. However, when I insert the following code into my VBA
project,
nothing happens. I took it straight from the good old Macro recorder!

Cells.Replace What:="00/01/1900", Replacement:="", LookAt:=xlWhole,
_
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Removing the quotes automatically changed it to this, with the same
result:
Cells.Replace What:=0 / 1 / 1900, Replacement:="", LookAt:=xlWhole,
_
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

What have I done wrong, or what do I need to? I know this is basically
zero
in date format but I don't want to replace everything that is 0, just
those
looking like a date

Many thanks for your help.