Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Range("F71:AK71")) Is Nothing _
Or LCase$(Target.Value) <> "ja" _
Or ExcludedSheet(Sh.Name) = True Then Exit Sub
Call MsgBox("Bitte umgehend den Vorgesetzten informieren.", vbExclamation, "W. Meier Hinweis beachten")
End Sub
Private Function ExcludedSheet(sName As String) As Boolean
Const sINCLUDE As String = "Tabelle1,Tabelle3,Tabelle5"
If InStr(sINCLUDE, sName) = 0 Then ExcludedSheet = True
End Function