Guru do Excel e Power BI

Oi, pessoal.

Preciso escrever uma macro onde haja uma combo box com o nome de 4 produtos diferentes, em que o ideal é que ela apareça em cada célula (das linhas 2 a 16 da coluna 1). A coluna 1 está em branco e só será preenchida após a seleção de um item na Combo box. Lendo um pouco, escrevi a macro assim, mas os itens não aparecem na coluna 1. Poderiam me ajudar, por favor?


Private Sub ComboBox1_Change()

For lin = 2 To 16

Do Until Planilha1.Cells(lin, 1) = ""
ComboBox1.AddItem [Planilha1], ["Tomate", "Passata", "Massa", "Azeite"]
lin = lin + 1

Exit Do
Loop



End Sub

Olá,

Se entendi direito, não é necessária macro.

Na planilha anexa, ao selecionar qualquer célula entre A2 e A16, aparece uma setinha do lado direito, que permite apenas a seleção de um dos 4 vegetais.

Dê retorno.