|
Posted to microsoft.public.excel.worksheet.functions
|
|
|
How many formula
thank you both !
"Chip Pearson" wrote:
Only with VBA code.
Sub CountFormulas()
Dim TotalCount As Long
Dim WSCount As Long
Dim WS As Worksheet
On Error Resume Next
For Each WS In ActiveWorkbook.Worksheets
WSCount = WS.UsedRange.SpecialCells(xlCellTypeFormulas).Coun t
TotalCount = TotalCount + WSCount
Next WS
MsgBox "You have " & Format(TotalCount, "#,##0") & " formulas."
End Sub
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"Andy the yeti" wrote in
message
...
Hi all,
Is there a way to count up how many formulae there are in
workbook across
all the tabs?
Many thanks
Andy
|