Application.Calculation = xlManual
ActiveSheet.Cells.SpecialCells(xlConstants,xlTextV alues).Select
Selection.Replace What:="0", Replacement:="0",
LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False

Application.Calculation = xlAutomatic

--
Regards,
Tom Ogilvy

"Nigel Bennett" wrote in message
...
I am using a search and replace in a function to change a
text 0 to a numeric 0 but it seems to be running to long,
here is the code

ActiveSheet.Cells.Select
Selection.Replace What:="0", Replacement:="0",
LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False,
SearchFormat:=False, _
ReplaceFormat:=False

Is there anything more efficient than this

Thanks

Nige