Obrigado mais uma vez pela sua atenção. Vou tentar explicar novamente da forma mais explícita possível. Meu projeto cadastra, 4 tipos de informação: ...

Conforme pediram, segue anexo. 0001Controle_de_Contratos.rar

Obrigado por responder Reinaldo, realmente eu colei faltando uma parte: Sheets("contrato").Cells(lin, 65).Value = Me.DTP...

Obrigado pela resposta alexandrevba, eu usei a pesquisa do fórum, mas não encontrei nada. E se você reparar bem no que eu estou pedindo ajuda não é so...

Eu tenho a seguinte rotina para cadastrar os dados (abaixo um pequeno exemplo): Private Sub btn_Cadastrar_Click() Dim lin As Integer 'SELECIONA PLAN...

Mudando para resolvido por conta de ninguém responder :/

Sim Mauro, entendi. Estou postando para ver se mais alguém do Fórum pode ajudar.

Mauro, obrigado pela ajuda. Inclui a solução proposta e resolveu o problema no FileCopy. Mas acabei encontrando outros 2 problemas no meu projeto que ...

Obrigado pela atenção Mauro Coutinho, eu entendi a lógica do que você disse, mas não sei por na prática. Estou a 2 dias olhando o código e não consigo...

Desculpe a demora no feedback. Mais uma vez obrigado! A dica funcionou perfeitamente.