Samuel Carlos Ribeiro

Bom dia Estou acompanhando um curso online de Excel e vba, faço tudo conforme explicado nos vídeos, tenho uma caixa de combinação onde escolho a opção e na hora de salvar me aparece esse erro: "A variável do objeto ou variável do bloco 'With' não foi definida" O código usado é esse: Private Sub UserForm_Initialize() With cbxPermissao .AddItem "ADMINISTRADOR" .AddItem "OPERADOR" .AddItem "USUÁRIO" End With End Sub Entendo um pouco de vba, mas não estou entendendo esse erro se esta conforme o curso A diferença do Excel pode fazer com que de esse erro? Estou usando o Excel do Officce 2019 e o cursa esta sendo apresentado pelo 2010.

Boa tarde Alyson Obrigado pelo retorno, e muito obrigado pela dica. Deu certo

Boa tarde Estou tentanda executar meu projeto em Excel 2019 conforme vou concluindo a programação de algum objeto, esse erro esta acontecento no ListBox conforme o que segue abaixo; Erro em tempo de execução '380': Não é possivel definir a propriedade List. Valor de propriedade incalido Sub CarregaListBox() Dim wb As Workbook Dim sh As Worksheet Set wb = ThisWorkbook Set sh = wb.Sheets("clientes") wb.Activate sh.Activate lins = sh.Range("A1048576").End(xlUp).Row For i = 1 To lins With ListBox1 .AddItem .List(i - 1, 0) = sh.Cells(i, 1).Value .List(i - 1, 1) = sh.Cells(i, 2).Value .List(i - 1, 2) = sh.Cells(i, 3).Value .List(i - 1, 3) = sh.Cells(i, 4).Value .List(i - 1, 4) = sh.Cells(i, 5).Value .List(i - 1, 5) = sh.Cells(i, 6).Value .List(i - 1, 6) = sh.Cells(i, 7).Value .List(i - 1, 7) = sh.Cells(i, 8).Value .List(i - 1, 8) = sh.Cells(i, 9).Value .List(i - 1, 9) = sh.Cells(i, 10).Value .List(i - 1, 10) = sh.Cells(i, 11).Value .List(i - 1, 11) = sh.Cells(i, 12).Value .List(i - 1, 12) = sh.Cells(i, 13).Value End With Next i Set wb = Nothing Set sh = Nothing End Sub