Não entendi muito bem, mas a data de A1 só vai para a variável depois dessa linha:
dData = Range("A1").Value
E, quando termina o código, ele limpa a variável, ou seja, se vc passar o mouse sobre a variável, ela não vai ter valor algum, mas sempre que o código rodar, ele vai pegar o valor da variável.
Postado : 09/06/2015 3:04 pm