Sub initializeCells()

LastRow = Cells(Rows.Count, "C").End(xlUp).Row
Set DataRange = Range("C13:F" & LastRow)
DataRange.SpecialCells(xlCellTypeConstants) = 0

End Sub

"Ruth_C" wrote:

I have a spreadsheet with 3000 and some rows. I am using the code below to
initialise cells to 0 and this works fine. The problem is that some of the
cells contain formulae and when I initialise to 0, the formulae are not kept.
I just want to initialize cell contents and not loose the cell formulae.
Any suggestions in VBA please?

Sub initializeCells()
v = 0#
n = Cells(Rows.count, "C").End(xlUp).Row
Range("C13:F" & n).Value = v
End Sub
--
Ruth_C