Hallo Peter,

für die Suchen in allen Tabellen:

Option Explicit
Global SSearch As String
Public Sub Suche_in_allen_Tabellen()
    Dim ws As Worksheet
    Dim c
    Dim firstAddress As String
    Dim secAddress
    Dim GFound As Boolean
    Dim GWeiter As Boolean
     Dim Anzahl As Long
         GWeiter = False
    GFound = False
anf:
    SSearch = InputBox("Suchen nach:", "Suche in allen Tabellen", SSearch)
        If SSearch = "" Then
        End
    End If
weiter:
    For Each ws In Worksheets
        ws.Select
        With ws.Cells
            Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
            If Not c Is Nothing Then
                GFound = True
                ws.Select
               c.Select
            c.Interior.ColorIndex = 10
           c.Font.Bold = True
           c.Font.ColorIndex = 2
            Anzahl = Anzahl + 1
                firstAddress = c.Address
                If MsgBox("Trefferanzahl: " & Anzahl & vbNewLine & vbNewLine & vbNewLine & Anzahl & ". Ergebnis zur Suche:  '" & SSearch & "'" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & ("Weitersuchen ?"), vbQuestion + vbYesNo) = vbYes Then
                    Do
                        Set c = .FindNext(c)
                          
                        secAddress = c.Address
                        If c.Address = firstAddress Then
                            Exit Do
                        End If
                        c.Select
            c.Interior.ColorIndex = 10
           c.Font.Bold = True
           c.Font.ColorIndex = 2
           Anzahl = Anzahl + 1
          
 If MsgBox("Trefferanzahl: " & Anzahl & vbNewLine & vbNewLine & vbNewLine & Anzahl & ". Ergebnis zur Suche:  '" & SSearch & "'" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & ("Weitersuchen ?"), vbQuestion + vbYesNo) = vbNo Then
                           GWeiter = True
                            GoTo ende
                        End If
                    Loop While Not c Is Nothing And secAddress <> firstAddress And c.Address <> firstAddress
                Else
                    GWeiter = True
                    GoTo ende
                End If
            End If
        End With
    Next ws
    
ende:
    If GFound = False Then
        If MsgBox("Suchwert nicht gefunden ! Neue Suche ?", vbInformation + vbYesNo) = vbYes Then
            GoTo anf:
        End If
    Else
        If GWeiter = False Then
            If MsgBox("Sie haben alle Tabellenblätter durchsucht ! Soll die Suche neu gestartet werden ?", vbInformation + vbYesNo) = vbYes Then
                GoTo weiter
            End If
        End If
    End If
    End Sub

Gruß

fedjo