Excel footer to a cell

[InfoCntr9000]

Unfortunately I’m not a VBA guy, however, I need a way to extract/read the footer information in Excel and copy it into a cell. I’ve seen code to take information from a cell and write to the footer, but is there a way to do the reverse?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Thanks,<o></o>

 

[drsarao]

Try this: (Change "D1" as needed for the destination cell)
Sub ReadFooter()
ft = ActiveSheet.PageSetup.LeftFooter
ft = ft & ActiveSheet.PageSetup.CenterFooter
ft = ft & ActiveSheet.PageSetup.RightFooter
ActiveSheet.Range("D1") = ft
End Sub

If you are sure you want info only from left or right footer, delete other lines.

 

[InfoCntr9000]

Thanks for the quick response. I'll give it a whril. As I mentioned I'm not much at VB... kinda a mainframe type of guy, but I'll get there!

Thanks again I'll let you know what happens.

 

[InfoCntr9000]

This worked fine... even for a nonVBA'er!

 

[drsarao]

You are welcome.