Coloque o código no evento "Activate" da aba;sheet.

Valeu pela contribuição galerinha. A contribuição do Xlaruda resolveu meu problema. vlw Cara! Vlw você tbm, Carlos.

Boa, Wagner! Obrigado pela resposta. testei aqui e o "PausarEzxecução" está dando certo, já o "InterromperExecução" não retorna ...

Também não entendo porque está dando esse "limite" aqui no Planilhando agora. Mas minha sugestão é voce postar no GoogleDrive e postar o lin...

Já resolvi com o código: Sub ImportPlan() Dim wsheet As Worksheet caminho = "C:Users..." For Each wsheet In Worksheet...

Boa tarde! Consegui resolver com o simples comando: Antes de copiar as fórmulas: Application.DisplayAlerts = False Depois de copiar as fórmul...

Adaptei o código e deu certo aqui. obrigado

Fala, meu caro! Obrigado pela resposta, mas no seu código está colorindo somente a célula ativa. Eu preciso que colora a linha inteira da célula ativ...

Não entendi como voce precisa que as informações ficam. Como está hoje e como deve ficar?

Eu não entendi a planilha, por isso não posso contribuir.