Olá sparcools,BLZ?

Qual a sua intenção com esse codigo?

Vc quer caregar o combobox1 ou combobox2?

Prenche o ComboBox1 com numeros de 1 a 10 quando o UserForm for iniciado :

Private Sub UserForm_Initialize()
    For i = 1 To 10
        Me.ComboBox1.AddItem (i)
    Next
End Sub

Preenche o ComboBox2 com numeros de 1 a 10 quando selecionar um numero no ComboBox1.

Private Sub ComboBox1_Change()
    For i = 1 To 10
        Me.ComboBox2.AddItem (i)
    Next
End Sub

Espero que sejaisso.

[]s

Obrigado, Mauro. É que eu estava essa função na combobox.

Tenho que ir num userform.

@Olegario

Algoritmo, né, pra agilizar e não ter que ir digitando 1 em 1.