Find and replace just 0s in a Range using code 1

[daseffects]

Lets say I have a range of #'s

0, 1.01, 5.2, 10.2, 0

I want to be able to replace just the whole 0s w/ the number 1 through a comand button.

so the above would look like

1, 1.01, 5.2, 10.2, 1

I figure just regular find and replace won't do.

 

[SkipVought]

Hi
Select you range

for each c in selection
  if c.value = 0 then c.value = 1
next

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[daseffects]

This code also changes blank cells to 1. Any way to avoid blanks or leave them as blanks

 

[SkipVought]

For Each c In Selection
  If c.Value = 0 Then
    If Not IsEmpty(c.Value) Then c.Value = 1
  End If
Next

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[DrBowes]

Using the find and replace method would be faster, record a macro replacing all 0 with 1, tick the match entire cell only and when you view the macro you will have the required syntax.