Hallo zusammen,
ich habe einen Code für mehrere Tabellen gebaut.
Nun möchte ich, dass der Code nur für bestimmte Tabellenblätter angewendet wird.
Also zum Beispiel Tab1, Tab2, Tab3.
Sicher könnt ihr mir helfen.
Danke Werner


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

     Dim objRange As Range, objCell As Range  
    
    
    
     Set objRange = Intersect(Target, Range("F71:AK71     "))
     ' Intersect bedeutet nichts weiter, als
'  dass sich die selektierte Zelle im definierten Bereich befindet

     If Not objRange Is Nothing Then
     ' alle nicht leeren Zellen
    
         For Each objCell In objRange
'         wiederholt eine reihe von anweisungen

             If LCase$(objCell.Value) = "ja" Then
                 uf_HinweisGlasbruch.Show
'                MsgBox("Bitte umgehend den Vorgesetzten informieren.", vbExclamation, "W. Meier Hinweis beachten")
                 Set objCell = Nothing
                 Exit For
             End If
         Next
         Set objRange = Nothing
     End If
 End Sub