Überprüfen Sie vor dem Zugriff auf eine Tabelle die Existenz dieser Tabelle !

Function Existiert_Tabelle(Tabellenname)
   Existiert_Tabelle = False
   Tabellenname = UCase(Tabellenname)
   For x = 1 To Worksheets.Count
      s = UCase(Worksheets(x).Name)
      If s = Tabellenname Then
         Existiert_Tabelle = True
         Exit Function
      End If
   Next
End Function

Aufruf:
x=Existiert_Tabelle("Tabelle1")
'x liefert True oder False