Fill blanks macro

[donniedorian]

Hello,

I need to fill all blank cells , or = 0 in my selection with "1"

Thank you

 

[Fluff]

How about

Sub donniedorian()
   Dim Cl As Range
   For Each Cl In Selection
      If Cl.Value = "" Or Cl.Value = 0 Then Cl.Value = 1
   Next Cl
End Sub

 

[Scott T]

Select the area and then hit F5 to bring up the go to box.
Select Special...
Then Select Blanks
Type what you want in the cells then press CONTROL and ENTER

 

[Rick Rothstein]

Untested, but this macro should work...

Sub donniedorian2()
  Selection.Replace 0, 1, xlWhole, , , , False, False
  On Error GoTo NoBlanks
  Selection.SpecialCells(xlBlanks) = 1
NoBlanks:
End Sub