Boa noite.
peguei esse código na internet e adaptei para oq preciso, porém quando vou digitar na caixa de texto(para fazer uma pesquisa) ele ta dando erro no:

Me.lbl_registros = conta_registros

aparece a mensagem de "erro de Compilação: método ou membro de dados não encontrado."
alguem consegue me ajudar?

Private Sub txtpesquisa_Change()

'pesquisa
valor_pesq = txtpesquisa.Text
    Dim guia As Worksheet
    Dim linha As Integer
    Dim coluna As Integer
    Dim linhalistbox As Integer
    Dim valor_celula As String
    Dim conta_registro As Integer
    
    Set guia = ThisWorkbook.Worksheets(1)
    
    If Optcpf = False And Optapolice = False And Optfim = False And Optseguradora = False And Optramo = False And Optcpfcond = False And Optvenc = False Then
    MsgBox ("Selecione um filtro para busca!")
    
    
    ElseIf Optcpf = True Then
    coluna = 1
    ElseIf Optapolice = True Then
    coluna = 17
    ElseIf Optfim = True Then
    coluna = 19
    ElseIf Optseguradora = True Then
    coluna = 20
    ElseIf Optramo = True Then
    coluna = 21
    ElseIf Optcpfcond = True Then
    coluna = 29
    
    End If
    
    linhalistbox = 0
    conta_registros = 0
    linha = 2
    
    lst_busca.Clear
    
    Sheets("bancodedados").Select
    
    With guia
        While .Cells(linha, coluna).Value <> Empty
        valor_celula = .Cells(linha, coluna).Value
        
        If UCase(Left(valor_celula, Len(valor_pesq))) = UCase(valor_pesq) Then
        With lst_busca
        .AddItem
        .List(linhalistbox, 0) = Sheets("bancodedados").Cells(totalregistro, 1) = caixacpf
        .List(linhalistbox, 1) = Sheets("bancodedados").Cells(totalregistro, 17) = caixaapolice
        .List(linhalistbox, 2) = Sheets("bancodedados").Cells(totalregistro, 19) = caixafim
        .List(linhalistbox, 3) = Sheets("bancodedados").Cells(totalregistro, 20) = Comboxseguradora
        .List(linhalistbox, 4) = Sheets("bancodedados").Cells(totalregistro, 29) = caixacpfcond
        End With
        conta_registros = conta_registros + 1
        
        End If
        linha = linha + 1
    Wend
End With

Me.lbl_registros = conta_registros
        
End Sub