One way:

On Error Resume Next 'in case no constants
Selection.Cells.SpecialCells(xlCellTypeConstants). ClearContents
On Error GoTo 0


In article ,
"Richard Lawson" wrote:

Is it possible to clear the data without clearing the formulas?

I have an area of the sheet which is mostly data which needs to be cleared
before updating. A few cells have formulas attached.