Cara, eu dei uma olhada na tua planilha. Veja que no formulário "Contas a Pagar", parece-me que está faltando um campo de texto para "Data do Pagamento".

Executei o código linha a linha (F8), até chegar ao erro que vc mencionou, nas seguintes linhas:

Me.txtDataDoPagto.Value = .Cells(indiceRegistro, colDataDoPagto).Value
Me.txtDataDoPagto = Format(txtDataDoPagto, "dd/mm/yyyy")

porém, esse txtDataDoPagto não existe no formulário "Contas a Pagar", por isso está dando o erro.

Nota, esse mesmo txtDataDoPagto existe no outro formulário: Pesquisa Contas a Pagar".

Verifique essa parte, creio que vc precisa incluir outra caixa de texto ali, para fazer a referência. Depois, indique o nome nas linhas do código.

Veja no anexo.