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