Edgard
Pelo que pude "ver", exceto por 2 pequenos erros:
Um em frm Relatorios a rotina Sub TextBox1_Change() se refere à um label (label12) que não existe nesse relario,
Outro em Sub Imprimir(), que "chama" heets("Tela Principal").Activate (falta um S no inicio).
Mas que não afetam o desempenho; o codigo em si não apresenta erros.
Sugestão: na rotina de abertura do projeto, mova as linhas "Sheets.... e frm..." para depois do end if, assim a validação de data é feita antes da abertuda do frm, e não depois como está agora.
Porem como não tenho condições de simular todas as possibilidades do dia a dia, talvez seja algo em sua instalação, conforme o Alexandre disse anteriormente.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 01/03/2012 10:14 am