Validador de data em Macro VB Excel

[tetchelex]

Olá pessoal, gostaria de checar com vocês como eu posso escrever dentro do meu código uma sequencia de instruções que checa se a data é válida ou não em macro VB excel.

 

Tentei usar o comando "IsDate(str)" porém ele só valida o formato da data, isto é, se eu escrever uma data do tipo 30/02/2014 (30 de fevereiro), este tipo de validação retorna um boolean verdadeiro. Precio de algo que valide o calendário.

 

 

Conseguem ter uma sacada?

 

 

Grato!

[Basole]

tetchelex, tente algo assim: 

Sub Verif_data()strng = Range("a1").Valuem = Month(strng)d = Day(strng)y = Year(strng)End Sub

Se A1 for = 30/02/2015. por exemplo, vai retornar em error em 'm'

Se a1 for = 31/04/2015, tbem. retornará error em 'm'

Da mesma forma A1= 32/01/2015 -> error em 'm'

Exeto com ano, por ex. A1 = 31/04/0999 , retorna y = 999, mas neste caso voce poderia criar um parametro entre 1950 a 2050 por exemplo.   

abx.