Format footer
 

This is the code I'm working with. Cell A4 will contain text (cells
formatted to text), January 2007 for example. I'd like that to appear on the
footer. It inserts it but formats it as 1/1/2007. I'd like it to just have
the whole month and year. Thanks

With ActiveSheet.PageSetup
ActiveSheet.PageSetup.RightFooter = _
Format(Worksheets("Detail").Range("A4").Value).Tex t
End With

Format footer
 

Thank you!

"Bob Phillips" wrote:

With ActiveSheet.PageSetup
ActiveSheet.PageSetup.RightFooter = _
Worksheets("Detail").Range("A4").Text
End With

--
HTH

Bob Phillips

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"MacroLearning" wrote in message
...
This is the code I'm working with. Cell A4 will contain text (cells
formatted to text), January 2007 for example. I'd like that to appear on
the
footer. It inserts it but formats it as 1/1/2007. I'd like it to just
have
the whole month and year. Thanks

With ActiveSheet.PageSetup
ActiveSheet.PageSetup.RightFooter = _
Format(Worksheets("Detail").Range("A4").Value).Tex t
End With