VBA excel: Sammenlign celleindhold med combobox

I rækkerne under kolonne A, har jeg et antal celler med indhold. Derudover har jeg en userform med en combExp (combobox).

Når formen initialiseres, tjekkes i combobox om teksten i cellen findes i combobox. Hvis den gør, skal combobox listindex sættes til det nummer hvor teksten er lig med hinanden. Hvis ikke, skal range A1 vælges.

Jeg har indtil nu denne kode, som ikke virker optimalt:

For x = 0 To combExp.ListCount - 1
If combExp.List(x) = ActiveCell.Value Then
  combExp.ListIndex = x
Else
  combExp.ListIndex = 0
End If
Next

Problemet er, at uanset hvad, sættes combexp.listindex til 0.

Nogen der kan hjælpe mig videre?