Bob Thanks but I have copied this letter for letter and it is just writing it
out on the footer. It's not actually doing the calculation. How do I make
this work?

"Bob Phillips" wrote:

ActiveSheet.PageSetup.LeftFooter = _
"This quote is valid until " & Format(DateSerial(Year(Date), Month(Date)
+ 3, Day(Date)), "dd mmmm yyyy")


--
__________________________________
HTH

Bob

"Richard" wrote in message
...
Hi I'm trying to add a footer with a note that says "this quotation is
valid
until ------)
----- being a date calculated to be three months ahead of todays date. Is
there a way of doing this?