Objekt Erforderlich - Fehler 424

Sub Loesche_Form()
Dim ci As Long
Application.EnableEvents = False
For ci = 0 To Schichtbesetzung.Controls.Count - 1
Debug.Print Schichtbesetzung.Controls.Item(ci).Name
If InStr(1, Schichtbesetzung.Controls.Item(ci).Name, "TextBox")  0 Or InStr(1,  _
Schichtbesetzung.Controls.Item(ci).Name, "ComboBox") Then
If InStr(1, Schichtbesetzung.Controls.Item(ci).Name, "Datum") = 0 And InStr(1,  _
Schichtbesetzung.Controls.Item(ci).Name, "Schicht") = 0 Then
Schichtbesetzung.Controls.Item(ci).Value = ""
Debug.Print Schichtbesetzung.Controls.Item(ci).Name
Debug.Print Right(Schichtbesetzung.Controls.Item(ci).Name, Len(Schichtbesetzung. _
Controls.Item(ci).Name) - 7)
If Right(Schichtbesetzung.Controls.Item(ci).Name, Len(Schichtbesetzung.Controls. _
Item(ci).Name) - 7) > 23 Then
Schichtbesetzung.Controls.Item(ci).BackColor = &HE0E0E0
End If
End If
End If
Next ci
Application.EnableEvents = True
End Sub