"Richard" wrote in message
...
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?

Richard, As Bob isn't around at present, try my "newbie" solution!

I inserted Bob's code into my "Sheet1" Tab i.e. Right click Sheet Tab View
Code and insert the code into Microsoft Excel Objects Sheet1 (Sheet1).

Note that you need an extra top and bottom line of code as shown below:

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

Save and close the code window, then in the main Excel window run the macro
from Tools Macro Macros select "LeftFooter" Run.

Hopefully one of the experts will be along with the right terminology and
the proper way to do it.

--
Old Fred