Perfeito Wagner,
Muito Obrigado, sua ajuda foi de muita Valía para mim.
Fiz uma adpatação para o documento ficar ainda mais automatizado
Range("K1").Value = "PSS-000" & Numero +1 & "/" & Format(Date, "yy")
Obrigado novamente!
Postado : 10/11/2012 6:09 pm