Samuel Carlos Ribeiro

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