Hi Flo,

Try something like:

'=============
Public Sub Tester()
Dim Rng As Range

Set rng = Columns("A:A") '<<==== CHANGE

On Error Resume Next
Rng.SpecialCells(xlCellTypeConstants).ClearContent s
On Error GoTo 0

End Sub
'<<=============


---
Regards,
Norman


"Filo" wrote in message
...
Hello,
What is the code to clear the content of an entire column, except for the
cells that have formulas?

Thank you!