pasedo,
Muitas variaveis sem declarar, estavam causando erros.
E tb. pra mim Ucase estava dando erros, procure fazer assim: Vba.Ucase ou para data Vba.Date, Vba.Now e etc
Veja se tem mais alguma coisa pois nao detectei mais nenhum.

Basole muito obrigado, ta funcionando certinho agora. Perfeito. Abraços .