Find and Replace question

[Kerry Newman]

I have a worksheet with hundreds of cells, some with numbers and some with zeros.
Can I use the Find and Replace function to "find any number, and replace with 1" ?
Leaving me with just 1s and 0s.

Thanks

 

[Fluff]

How about

Sub ConverttoOnes()
With ActiveSheet.UsedRange
   .Value = Evaluate("if(isnumber(" & .Address & ")*(" & .Address & "<>0),1," & .Address & ")")
End With
End Sub

 

[Kerry Newman]

Very nice, worked perfect. many thanks!

 

[Fluff]

Glad to help & thanks for the feedback