Para adicionar uma lista suspensa em um formulário do Excel usando VBA, siga as etapas abaixo:
Crie o formulário do Excel clicando na guia "Desenvolvedor" e selecionando "Inserir" e "Formulário".
Na caixa de ferramentas do formulário, selecione "Caixa de combinação" e desenhe um retângulo no formulário onde você deseja adicionar a lista suspensa.
Clique com o botão direito do mouse na caixa de combinação e selecione "Propriedades".
Na janela de propriedades, defina o valor da propriedade "ListFillRange" para o intervalo de células que contém os itens que você deseja exibir na lista suspensa.
No evento "Initialize" do formulário (que é disparado quando o formulário é carregado), adicione o seguinte código VBA:
Private Sub UserForm_Initialize()With ComboBox1 .Clear .List = Range("A1:A10").Value ' substitua pelo seu intervalo de célulasEnd With End Sub
Para testar a lista suspensa, salve o formulário e clique no botão "Design Mode" para sair do modo de design. Em seguida, clique no botão "Run" para exibir o formulário.
Quando o formulário for exibido, a lista suspensa deve conter os itens do intervalo de células que você especificou na propriedade "ListFillRange".
Observação: substitua "ComboBox1" pelo nome da sua caixa de combinação e "Range("A1:A10").Value" pelo intervalo de células que contém os itens da sua lista suspensa.