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?

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?

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?

Maybe it was wrap-around. Try this variation

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
...
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?

"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