Mudar informação em célula diariamente (+1)

"Basta sermos simples para sermos ricos em nossos atos!" (E.S.P.)
----------

Private Sub Worksheet_Activate()
'
'Autor: Eneias dos Santos Pedroso
'
Dim MyDate
MyDate = #5/7/2005#
'Lembre-se, o formato aqui é mês, dia e ano.
'Para nossa compreensão, 07/05/2005
'Também o valor de MyDate poderia ser uma célula - exemplo:
'MyDate = [E1]
'Nessa célula coloque a data com o formato usual
[A1] = MyDate - Date
End Sub

----------
Maiores esclarecimentos, acesse o link que está no título deste post !