Sub AnzahlFormeln() Dim Anzahl, Blatt Anzahl = 0 On Error Resume Next For Each Blatt In ActiveWorkbook.Worksheets Anzahl = Anzahl + CLng(Blatt.Cells.SpecialCells( _ xlCellTypeFormulas).Count) Next On Error Goto 0 MsgBox "Diese Mappe enthält " & Anzahl & " Formeln.",vbOKOnly, "Formeln gezählt" End Sub