Schönen Guten Morgen!

Ich habe im Datenblatt 1 eine Tabelle mit mehreren Spalten. In der Reihe "A" stehen jeweils 3 stellige Nummern (Zimmernummern von einem Hotel). In einem anderem Datenblatt B stehen in Spalte A ebenfalls mehrere 3 stellige Nummern.

Mein Macro soll nun nacheinander die Zeilen in Reihe A des Datenblatt 1 mit den Zahlen in Reihe A des Datenblatt 2 vergleichen. Kommt es zu einem Treffer, soll die entsprechende Zeile in Datenblatt 1 gelöscht werden.

Mein Code bisher:

Private Sub check_rooms()

'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row

'** Durchlauf aller Zeilen
For t = lz To 2 Step -1
    If Cells(t, 1).Value = Worksheets("Blackout_Rooms").Range("A2:A35").Value Then
        Rows(t).Delete shift:=xlUp
    End If
Next t

End Sub

Leider bekomme ich beim Ausführen immer den Laufzeitfehler '13' Typen unverträglich.

Was mache ich falsch? Bin für jede Hilfe dankbar!

Gruß Marco