ungültiger Bezeichner

Private Sub CommandButton2_Click()
'OK Button
Set wksOrt = Worksheets("Ortslist")
Application.ScreenUpdating = False
Call Unprot
If ComboBox1.Value = "" Then
        MsgBox ("Es muß schon eine Nummer ausgesucht werden,") & vbLf & " " _
        & vbLf & "die dann übernommen werden soll !"
        Exit Sub
    Else
      If WorksheetFunction.CountIf(wksOrt.Range("D10:D59"), ComboBox1).Value > 0 Then
             MsgBox "Die Nummer wurde schon vergeben! ", , "Abbruch"
        Exit Sub
    Else
     
      Worksheets("Ortslist").Cells(Cells(65536, 4).End(xlUp).Row + 1, 4).Value = ComboBox1.Value
      ActiveSheet.Protect Password:="xxx"
  End If
Unload Me
Application.ScreenUpdating = True
End Sub
Es handelt sich hier um den "OK"-Button meiner UF.
Es soll hier ein Wert in die Zelle eingetragen werden.
Ich möchte hier einen Doppelten Eintrag verhindern.
Der Debugger zeigt hier auf "CountIf" und meldet: "Fehler beim Kompilieren. ungültiger bezeichner"
Kann mir jemand noch mal helfen?
Gruß Korl