Obrigado pela ajuda, mas não deu certo. Eu quero que o código busque a plan1 no modo invisível, sera possível.

Testado e aprovado, obrigado neoandrev.

Desculpe me pela demora estava tentando fazer o código funcionar. Não conseguir resolver onde vc disse; - lembrando que A3 tem de ser string (texto...

Segue em anexo, obrigado pela ajuda Teste.xlsm

Obrigado pela ajuda neoandrev mas ta dando erro na linha Application.OnTime TimeValue.Range("A3"), "Programação"

Excelente me ajudou bastante. Obrigado MPrudencio.

Teste exemplo Exemplo 2.rar

Posta modelo da tua pasta de trabalho.

Obrigado a todos pela atenção, conseguir resolver. Private Sub listbox1_Click() TextBox1 = Clear 'troquei ListBox2 pelo TextBox1 facilitar quebrar lin...

Que e-mail seria esse, própria pasta de trabalho, uma plan, conteúdo de uma célula, PDF. Detalhe melhor esse e-mail?

Disponho de um modelo. exemplo.xlsm