Formeln auflisten - Geändert

Sub Formeln_auflisten()
Dim C As Range, i As Long
i = 2
On Error GoTo ErrHandler:
For Each C In Tabelle1.Range("A1:C21").Cells.SpecialCells(xlCellTypeFormulas)
Cells(i, 10) = C.Address(0, 0)
Cells(i, 11) = "'" & C.FormulaLocal
i = i + 1
Next C
Exit Sub
ErrHandler:
MsgBox ("Keine Formeln im Bereich")
Exit Sub
End Sub

So jetzt hat sich aber die Aufgabenstellung geändert. Ich muss jetzt über alle Tabellenblätter in der Datei gehen und die Formlen auflisten. Die Auflistung soll in einem bestimmten Tabellenblatt (Bezeichung: Controll bzw. Tabelle3) erfolgen.
Und die Auflistung muss folgendermaßen aussehen:
Urspungstabelle Ursprungszelle Formel
Wobei bei Urspungstabelle nicht die Blattbezeichnung gemeint ist, sondern die interne Tabellennummer 1, 5, oder 6. Ich hoffe ihr versteht.
So wie muss ich nun obiges Makro erweitern, dass es nicht nur über das aktive Worksheet geht sondern über alle Worksheets den angegebenen Bereich absucht nach Formeln?
Beste Grüße
Michael