Restrict your search range, then try searching for zero

Equally (but slower):

Dim cel as Range, rngNullDateRange as range
For Each cel in rngNullDateRange
if cel.value=0
cel.clearcontents
end if
next

of
For Each cel in rngNullDateRange
if cel.text="01/01/1900"
cel.clearcontents
end if
next


--
HTH
Roger
Shaftesbury (UK)




"Matt Connor" wrote in message
...
Hi

I have an Excel worksheet which pulls data from SQL Server which treat
null
dates as 01/01/1900

I'm trying to replace all such dates with blanks on the worksheet

In Excel when I go Edit Replace and enter Find What = 01/01/1900
leaving
Replace blank it works marvellously

However in VBA the following does not work (even though this was from
recording the above action)

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

I have tried also using numerics for the What:= again with no luck

Am I being stupid?

Thanks

Matt