Selection.ClearContents for data only

[Richard Lawson]

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.

Rich

 

[JE McGimpsey]

One way:

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

 

[Guest]

maybe something like this:

Sub Test()
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Clear
End Sub