View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Peo Sjoblom
 
Posts: n/a
Default How many formula

For a single sheet yes, press F5, select special then formulas, now right
click in the status bar to the far right and select count. Otherwise you
need to use a macro

************************************************** ****
Option Explicit

Sub CountFormula()

Dim sh As Worksheet
Dim cell As Range
Dim Count As Integer

For Each sh In ActiveWorkbook.Sheets
For Each cell In sh.UsedRange
If cell.HasFormula Then
Count = Count + 1
End If
Next cell
Next sh

MsgBox "This workbook has " & Count & " formulas"

End Sub

************************************************** ***

--

Regards,

Peo Sjoblom


"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