I am sorry. Here is the missing part:

Function IsFormula(cell As Range) As Boolean
IsFormula = cell.HasFormula
End Function

Using this would require a sheet by sheet approach
--
Gary''s Student


"clemrogan" wrote:

Sorry,

This did not work.

Getting "compile error" sub or function not defined
and the IsFormula is highlighted

Also is their any way to apply it to a whole workbook (only the unprotected
cells) with 12 sheets (one for each month of the year) or do I have to go
sheet by sheet?

"Gary''s Student" wrote:

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?