Ü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