Combobox with out of order values

[Leandroarb]

I'm adding values to a combobox with a loop, it analyzes numerical values that are in ascending order, but when I open combobox the values are out of order, what could be happening?

I'm used this code:

Private Sub ComboBox1_Enter()
Dim rngCad       As Range
Dim c            As Range
Dim strArray    As String
Dim ArrayCombo As Variant

Set rngCad = Range(Cells(2, 1), Cells(Application.WorksheetFunction.CountA(Sheets("Cadastro").Range("A:A")), 1))
Me.ComboBox1.Clear
For Each c In rngCad
    If Application.WorksheetFunction.CountIf(rngCad, c) > 0 And InStr(strArray, c) = 0 Then
        ComboBox1.AddItem c
        strArray = strArray & c & ", "
        Else
        strArray = strArray
    End If
Next
End Sub

Explanation: There are repeated values in the range that the loop traverses, so I made the code this way so that only unique values were added.

 

[Leandroarb]

A strange discovery ... at the very least.

When the range sheet is not active in the workbook, the values are out of order.

I added a line for each section, a combobox is filled by activating the spreadsheet where the range is with the values, and so these values are in ascending order.

Private Sub ComboBox1_Enter()
Dim rngCad       As Range
Dim c            As Range
Dim strArray    As String
Dim ArrayCombo As Variant

Sheets("Cadastro").Select 'This line to active the respective sheet
Set rngCad = Range(Cells(2, 1), Cells(Application.WorksheetFunction.CountA(Sheets("Cadastro").Range("A:A")), 1))
Me.ComboBox1.Clear
For Each c In rngCad
    If Application.WorksheetFunction.CountIf(rngCad, c) > 0 And InStr(strArray, c) = 0 Then
        ComboBox1.AddItem c.Value
        strArray = strArray & c & ", "
        Else
        strArray = strArray
    End If
Next
End Sub