Boa tarde!!

Veja se vai te ajudar.

http://compuclass.com.br/texto.asp?ID=56

Att

Valeu D+ alexandre ,
Cada dia me surpreendo mais com as mil e uma maneiras de se escrever códigos no excel ; aquele baita cod de exemplo que postei o link ;resumido em 7 linhas.
Brigadão mesmo alexandre

Uma observação quanto ao código de exemplo postado pelo Claudinei, de fato temos a função IsDate aliada ao operador Not, no excel para se verificar Datas válidas, o que diferencia as duas rotinas, é que uma é uma Function para verificar as datas e emitir mensagens de observação, alem de ter sido criada para uso em VB6 que é a linguagem utilizada a algum tempo pelo VBA podendo facilmente ser adaptada para o VBA.
No exemplo postado pelo Alexandre, se a data não for valida, sempre será emitido : "MsgBox "preencha data valida"" ao contrario da Function, e se formos adaptar a instrução de verificação dos meses com o "Not IsDate" para emitir os mesmos tipos de mensagens, iremos ter varias linhas, resumindo, as duas são validas, mas cada uma para executar a função a qual foi determinada.

Uma outra obs, é referente ao Evento, precisamos tomar cuidade quando utilizamos a "Propriedade Cancel", junto com o Evento Exit, pode causar desconforto precisando ser tratado antes de fecharmos o formulário, uma vez que se o TextBox estiver vázio, será consderado como Data Invalida emitindo a mensagem para se dgitar uma data valida.

[]s

Boa noite!!

Muito boa e exitante observação, meus parabéns, você é brilhante Mauro, não conseguimos deixar de gostar de suas postagem além de aprendermos com elas, muito Obrigado, pelas lições, obrigado!!!!