Não consegui enteder a lógica da segunda combo, se puder explicar melhor tenterei ajudar

abraço amigo

Exemplo.

A lista da Combobox 2 vai de 1 até o valor que tiver na célula.

Se na célula I1 tiver 10, vai listar:

1
2
3
4
5
6
7
8
9
10

----

Se o valor da célula I1 for 4, vai listar.
1
2
3
4

Obrigado.

segue, da uma olhada ai,

Sparcools, teu codigo tava certo foi só uma questão de logica, no momento que o change executar novamente ele não ia limpar, então é preciso iniciar com um metodo clear.

att MarkoSoftware

Aeeeee, aeeeeeeeeee.

Era isso mesmo.

Obrigado, obrigado. ^D

Private Sub ComboBox1_Change()
    Dim i As Integer
    
    'Limpa Caixa de Seleção ComboBox2:
    ComboBox2.Clear
    For i = 1 To Range("i1").Value
        Me.ComboBox2.AddItem (i)
    Next
End Sub