Excel VBA povoando um ComboBox em uma forma de usuário de uma variedade de células
Private Sub UserForm_Initialize()
ComboBox1.List = [Sheet1!A1:A10].Value
End Sub
Excel Hero