Try

Sheet6.Range("B2").Value = Format(DateSerial(Year(Now()) - 4, Month(Now()),
Day(Now())), "dddd dd mmmm yyyy")

HTH

"Corey" wrote:

If I have sheet6.range("B1").value = format(now,"dddd dd mmmm yyyy")

and i want to have sheet6.range("B2").value to display B1- 4years, how can i do that?

Corey...