Print or list formula from all Sheets in ActiveWorkbook

Option Explicit

Sub PrintCellsWithERR()
Dim ws As Worksheet
Dim rangetoCheck As Range, sCell As Range

For Each ws In ActiveWorkbook.Worksheets
Set rangetoCheck = ws.UsedRange
   For Each sCell In rangetoCheck
   If IsError(sCell.Value) Then
      Debug.Print ws.Name & "==>" & sCell.Address
   End If
   Next sCell
Next ws

End Sub