S scrabtree23 Jun 18, 2009 #1 I need a code that will search a range (let's say A1:Z1) and will replace any blank cells with a zero (0).
I need a code that will search a range (let's say A1:Z1) and will replace any blank cells with a zero (0).
G Gord Dibben Jun 18, 2009 #2 If true blanks............. Sub Zeros() Dim rng As Range Set rng = Nothing On Error Resume Next 'just in case there are no blanks Set rng = Range("A1:Z1").SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If rng Is Nothing Then 'do nothing Else rng.Value = 0 End If End Sub Gord Dibben MS Excel MVP
If true blanks............. Sub Zeros() Dim rng As Range Set rng = Nothing On Error Resume Next 'just in case there are no blanks Set rng = Range("A1:Z1").SpecialCells(xlCellTypeBlanks) On Error GoTo 0 If rng Is Nothing Then 'do nothing Else rng.Value = 0 End If End Sub Gord Dibben MS Excel MVP
