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