Option Explicit
Function IsThere(Sh As Worksheet, Addr As String, IsIt As Variant) As Boolean
Dim c As Range
Set c = Sh.Range(Addr).Find(IsIt, , xlValues, xlWhole)
If Not c Is Nothing Then
If c.Offset(1).Value <> "" Then IsThere = True
End If
End Function
Sub Message()
Dim Sh As Worksheet
For Each Sh In Sheets
If IsThere(Sh, "A3:A9", "Bewertung") Then
Call MsgBox("Mach was mit " & Sh.Name, vbInformation)
End If
Next Sh
End Sub
Sub cruelty()
If IsThere(ActiveSheet, "A3:A9", "Bewertung") Then
Call MsgBox("Mach was mit mir", vbInformation)
End If
End Sub