autocomplet numbers in combobox

[white_flag]

hello

I have this problem and I do not know how to fix it:

I have an userform in Word, this is made from 10 comboboxes. The values from comboboxes are been taket from an excel file like this: Combo1=range("A2:A456") etc. In word (user form), I see the list from excel. but wen I type an number I like that, the combobox to show me match values. but nothing. This is happening just with the numbers, with letter it is going good. The setings from excel are for all the same. I try diffrent combination in combobox.properties but nothing. What can I do? The numbers in combo are important

this is the code:

option explicit

Private Sub ComboBoxA1_Change()
    Dim i As Integer
    For i = 1 To 9
        Controls("ComboBoxA" & i).ListIndex = ComboBoxA1.ListIndex
    Next
End Sub

Private Sub ComboBoxA2_Change()
    Dim i As Integer
    For i = 1 To 9
        Controls("ComboBoxA" & i).ListIndex = ComboBoxA2.ListIndex
    Next
End Sub

.
.
.

Private Sub ComboBoxA9_Change()
    Dim i As Integer
    For i = 1 To 9
        Controls("ComboBoxA" & i).ListIndex = ComboBoxA9.ListIndex
    Next
End Sub
Private Sub from_excel()
  With GetObject("D:\ooo.xls")
        ComboBoxA1.List = .sheets(1).Range("B2:B456").Value
        ComboBoxA2.List = .sheets(1).Range("K2:K456").Value
        ComboBoxA3.List = .sheets(1).Range("W2:W456").Value
        ComboBoxA4.List = .sheets(1).Range("Y2:Y456").Value
        ComboBoxA5.List = .sheets(1).Range("L2:L456").Value
        ComboBoxA6.List = .sheets(1).Range("M2:M456").Value
        ComboBoxA7.List = .sheets(1).Range("P2:P456").Value
        ComboBoxA8.List = .sheets(1).Range("D2:D456").Value 'numbers - not going
        ComboBoxA9.List = .sheets(1).Range("B2:B456").Value 'numbers - not going
        .Close False
  End With
End Sub

Private Sub UserForm_Initialize()
    from_excel
End Sub