INSERIR CONTEÚDO NO COMBOBOX1

Question

Amigos boa tarde, tentei deixar uma rotina mais dinâmica e está dando erro poderiam me ajudar:

Eu quero percorrer a coluna 1 da planilha 2 e colocar os valores no combobox1, mas de forma que se inserir mais linha na planilha ele atualize sozinho está rotina está dento  do evento initialize

erro de execução 424 "o objeto é obrigatório"

Dim r As range

 For Each r In ThisWorkbook.Worksheets("Planilha2").Cells(Rows.Count, 1).End(xlUp).Row
    Me.ComboBox1.AddItem r.Cells(1, 1)
  Next r

Answer 1

Private Sub UserForm_Initialize()

Dim linhaFinal, linhaInicial As Long

linhaFinal = ThisWorkbook.Worksheets("Planilha2").Cells(Rows.Count, 1).End(xlUp).Row
 For linhaInicial = 1 To linhaFinal
    Me.ComboBox1.AddItem (ThisWorkbook.Worksheets("Planilha2").Cells(linhaInicial, 1).Value)
  Next linhaInicial
End Sub

---

A MELHOR FORMA DE AGRADECER E VOTAR COMO UTIL OU MARCAR COMO RESPOSTA Anderson Diniz [e-mail]

Answer 2

Obrigado!