Inhalt von ComboBoxen prüfen

mit folgender Funktion möchte ich in einer UserForm prüfen, ob der Inhalt der Comboboxen 1 bis 10 identisch mit einer Zelle einer gegebenen Range (P2:P5) ist. Wenn das nicht der Fall ist, soll der Text in der jeweiligen Combobox gelöscht werden:

Dim y As Integer, z As Integer
For y = 1 To 10
For z = 2 To 5
If Controls("Combobox" & y).Text = Cells(z, 16) Then
Controls("Combobox" & y).Text = Controls("Combobox" & y).Text
Else
Controls("ComboBox" & z).Text = ""
End If
Next
Next

Leider klappt das nicht so richtig. Was mache ich falsch?

Gruß
Matthias