Boa tarde alexandrevba,
Agradeço pela sua atenção em me ajudar.
Acabei resolvendo da seguinte forma.
Inseri o código abaixo, antes da gravação dos dados na guia:
Range("B31:B56").NumberFormat = "@"
Feito isto deu certo.
Muito obrigado.
Postado : 30/06/2015 9:58 am