Hi Souris,

Whenever using the specialCells method it is advisable to use a
precautionary error handler.



Dim SH As Worksheet
Dim rng As Range

Set SH = Sheets("Sheet1")

On Error Resume Next
Set rng = SH.Cells.SpecialCells(xlFormulas)
On Error GoTo 0

If Not rng Is Nothing Then rng.ClearContents


---
Regards,
Norman



"Souris" wrote in message
...
Thanks for the informaiton,
It works, but it fails if there is no formula on the spreadsheet.
Should I check that does spreadsheet have formula before run the code?

Thanks again,


"Jim Thomlinson" wrote:

Try something like this...

Sheet1.Cells.SpecialCells(xlCellTypeFormulas).Clea rContents

which clears all of the formulas on sheet 1
--
HTH...

Jim Thomlinson


"Souris" wrote:

I wanted to clear all the cells which have formula on it.
Are there any function to check this like "Isformula" in VBA?

Any information is great appreciated,