Murilo T. L. Guimaraes

Peço que descupe minha falta de conhecimento. mas poderia me explicar como fazer isto ?

VBA - Erro de execução "91" - Variável de objeto ou variavel do bloco (Erro 91) Private Sub BtnImprimir_Click() Dim Linha As Long Dim Lin As Integer Dim X As Long Linha = 4 With Planilha3 .Activate .Range("b4:q2000").ClearContents With Me.ListBox1 For X = 0 To .ListCount - 1 Lin = Planilha2.Range("b:b").Find(.List(X, 0), lookat:=1).Row Range("b" & Linha).Cells = Planilha2.Cells(Lin, 2) Range("c" & Linha).Cells = Planilha2.Cells(Lin, 3) Linha = Linha + 1 Next X End With End With End Sub