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