First enter this small macro:

Sub keepform()
Dim R As Range
For Each R In Selection
If IsFormula(R) Then
Else
R.Clear
End If
Next
End Sub

Next selection the area in the worksheet you want to clear and run the
macro. The formulae will be left alone and everything else in the area will
be cleared.

-- gsnu001
Gary''s Student


"clemrogan" wrote:

I have a spreadsheet that I calculates monthly data and puts it into a year
end management spreadsheet. How do I clear the cells of data (zero out) but
leave the formulas intact so that I can use the spreadsheet again in the
comming year?