Sub NumFormulae()
Dim oCell as Range
Dum cNumFormulae As Long

For Each oCell In Activesheet.UsedRange
If oCell.HasFormula Then
cNumFormulae = cNumFormulae + 1
End If
Next oCell
MsgBox cNumFormulae
End Sub

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"awakening2lite" wrote in message
...
How can I find the number of formula in an excel sheet?

TIA