Teste erstmal ob du mit diesem Makro - leicht angepasste Variante von Gast78269 - eine Meldung bekommst - idealer Weise je eine Meldung für deine drei Tabellenblätter.
Option Explicit
Public Sub Test()
Dim wbkBook As Workbook
Dim wksSheet As Worksheet
For Each wbkBook In Workbooks
For Each wksSheet In wbkBook.Worksheets
Select Case wksSheet.Name
Case "Stanz", "Kusto", "Termo"
MsgBox "'" & wksSheet.Name & "' gefunden.", vbInformation
End Select
Next
Next
End Sub
|