Werte aus allen Tabellen löschen

Sub test()
Dim raFund As Range, strAdresse As String, raZelle As Range, strSuchbegriff As Variant,  _
wsTabele As Worksheet
Workbooks.Open ThisWorkbook.Worksheets("Eingaben").Range("Z17")
Workbooks("Arbeitsstunden.xlsx").Unprotect "test123"
Dim Blatt_unp As Worksheet
For Each Blatt_unp In Workbooks("Arbeitsstunden.xlsx").Worksheets
Blatt_unp.Unprotect "veht8n7z"
Next
For Each wstabelle In Worksheets
strSuchbegriff = ThisWorkbook.Worksheets("Eingaben").Range("Z6")
Set raFund = wstabelle.Cells.Find(strSuchbegriff, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
strAdresse = raFund.Address
Do
If raZelle Is Nothing Then
Set raZelle = raFund
Else
Set raZelle = Union(raZelle, raFund)
End If
Set raFund = wstabelle.Cells.FindNext(raFund)
Loop While Not raFund Is Nothing And raFund.Address  strAdresse
End If
If Not raZelle Is Nothing Then
raZelle.Offset(0, 4).Delete Shift:=xlUp
raZelle.Offset(0, 3).Delete Shift:=xlUp
raZelle.Offset(0, 2).Delete Shift:=xlUp
raZelle.Offset(0, 1).Delete Shift:=xlUp
raZelle.Delete Shift:=xlUp
End If
Next wstabelle
End Sub