Replace all numbers with zero, except formulas

[Hansulet]

I have a specified range selected.

Range(ActiveCell.Offset(0, -9), ActiveCell.Offset(0, -3)).EntireColumn.Select

Now, I have to replace all numbers with zero in the above range, except formulas.

Can anyone help me?

 

[JimM]

Try

Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = "0"

 

[Fluff]

How about

ActiveCell.Offset(, -9).Resize(, 7).EntireColumn.SpecialCells(xlConstants, xlNumbers).Value = 0

 

[Hansulet]

Thanks JimM and Fluff.
Working perfect both codes.

 

[Fluff]

Glad we could help & thanks for the feedback.

For reference, it's always best to avoid selecting things, as it's normally not needed & slows down the code.