Counting formula

[awakening2lite]

How can I find the number of formula in an excel sheet?

TIA

 

[Bob Phillips]

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)

 

[Peo Sjoblom]

Press F5, select special, select formulas and press enter, right in the
statusbar to the right and select count

 

[awakening2lite]

Showing my ignorance, here. I do not understand this. I do not work in VB.
But, thank you for trying to help.

 

[awakening2lite]

What am I doing wrong. I tried entering F5 and followed instruction in both
clicking a cell and clicking the status bar but I do not get any result.

 

[Peo Sjoblom]

start by doing this, in the statusbar at the bottom right click where you
see NUM, right click then select count

then do F5, special and formulas, that will select all formulas in the
active sheet and at the bottom right you should see the count of them

 

[awakening2lite]

A Million Thanks, Peo! It worked perfectly!

start by doing this, in the statusbar at the bottom right click where you
see NUM, right click then select count

then do F5, special and formulas, that will select all formulas in the
active sheet and at the bottom right you should see the count of them