"Verknüpfungen_finden()" aber in allen Tabellen

Sub Verknüpfungen_finden()
Dim Zelle As Object, ersteAdresse$ 'erste Verknüpfung finden
Set Zelle = Cells.Find(What:="]", LookIn:=xlFormulas)
If Not Zelle Is Nothing Then
ersteAdresse = Zelle.Address
MsgBox "Verknüpfung in: " & ersteAdresse & _
Chr(10) & Chr(10) & "Verknüpfung: " & _
Chr(10) & Range(Zelle.Address).Formula
'weitere Verknüpfungen finden
Do
Set Zelle = Cells.FindNext(Zelle)
If Zelle.Address = ersteAdresse Then Exit Do
MsgBox "Verknüpfung in: " & Zelle.Address & _
Chr(10) & Chr(10) & "Verknüpfung: " & _
Chr(10) & Range(Zelle.Address).Formula
Loop While Not Zelle Is Nothing And Zelle.Address <> ersteAdresse
End If
End Sub