Hallo,
in Deinem Array stehen nur Strings, Du mußt da die TabBlätter reinbringen:
Dim mySheet As Worksheet '... For Each mySheet In Worksheets(Array("Tabelle1", "Tabelle2")) '... Next
Gruß,