E ae... Eu tou sabendo dessas paradas, mas fiz assim porque não sei comparar variáveis do tipo Date...como as datas possíveis são aquelas no intervalo de 9/2002 a 8/2007 , eu comparei strings quebrando esse valor... If (Right(data, 4) < 2002) _
Or ((Right(data, 4) = 2002) And ((Len(data) = 6 And Left(data, 1) < 9))) _
Or (Right(data, 4) > 2007) _
Or ((Right(data, 4) = 2007) And ((Len(data) = 6 And Left(data, 1) = 9) Or (Len(data) = 7))) Then
MsgBox "A data especificada deve estar no intervalo de 9/2002 a 8/2007" + Chr$(13) + Chr$(13) & "Tente novamente!", 0 + 16 + 0 + 4096, "Formato incorreto"
Exit Sub
End If Provavelmente não é a melhor maneira de fazer isso, mas deu certo... =P Quanto ao Ticker, ele é o nome da ação de determinada empresa...no caso, os possíveis são PETR4 (Petrobras), BBAS3 (Banco do Brasil), CSNA4 (CSN), LAME4 (Lojas Americanas) e ARCZ6 (Aracruz)... Será que o erro tá por aí? Eu acho que tem mais a ver com a sintaxe ou mesmo a contrução da função, sei lá...