Format footer

[Guest]

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).Text
End With

 

[Bob Phillips]

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)

 

[Guest]

Thank you!

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)