Thread: Slow Function

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

Application.Calculation = xlManual
ActiveSheet.Cells.SpecialCells(xlConstants,xlTextValues).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" <nigelben@yahoo.com> wrote in message
news:11e601c55350$8148ad00$a401280a@phx.gbl...
> 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