Este fórum está sendo desativado

[pedromexico]

boa Tarde amigos.
como sou leigo em vba,adaptei um código de um fórum em que tenho uma listview e textbox's, em que faço a ediçao nas textbox's, e tem uma combobox com valores que define as colunas onde vai fazer pesquica, e uma textbox de procura.
ja adaptei o codigo ao meu formulario , mas dá erro dizendo que" NewItem"é uma "[u]variavel nao definida[/u]".
ja percebi que sempre que tenho no inicio dos formularios a opçao "Option Explicit" ,faz com que eu tenha que definir todas as variaveis.
envio codigo que tenho

Código: Selecionar todos

Sub PreencheListView()
Dim i As Long

lsLista.ListItems.Clear

If IsArray(MatrizResultadosLinha) Then
    For i = 0 To UBound(MatrizResultadosLinha)
        If MatrizResultadosLinha(i) <> 1 Then
            Set NewItem = lsLista.ListItems.Add(, , i)
            With Sheets(CInt(MatrizResultadosPlanilha(i)))
                NewItem.SubItems(1) = .Cells(MatrizResultadosLinha(i), 1).Value
                NewItem.SubItems(2) = .Cells(MatrizResultadosLinha(i), 2).Value
                NewItem.SubItems(3) = .Cells(MatrizResultadosLinha(i), 3).Value
                NewItem.SubItems(4) = .Cells(MatrizResultadosLinha(i), 4).Value
                NewItem.SubItems(5) = .Cells(MatrizResultadosLinha(i), 5).Value
                NewItem.SubItems(6) = .Cells(MatrizResultadosLinha(i), 6).Value
                NewItem.SubItems(7) = .Cells(MatrizResultadosLinha(i), 7).Value
                NewItem.SubItems(8) = .Cells(MatrizResultadosLinha(i), 8).Value
                NewItem.SubItems(9) = .Cells(MatrizResultadosLinha(i), 9).Value
                NewItem.SubItems(10) = .Cells(MatrizResultadosLinha(i), 10).Value
                NewItem.SubItems(11) = .Cells(MatrizResultadosLinha(i), 11).Value
                NewItem.SubItems(12) = .Cells(MatrizResultadosLinha(i), 12).Value
                NewItem.SubItems(13) = .Cells(MatrizResultadosLinha(i), 13).Value
                NewItem.SubItems(14) = .Cells(MatrizResultadosLinha(i), 14).Value
            End With
        End If
    Next i
End If

End Sub

fico á espera de alguma ajuda,para tentar perceber o erro.