Footer in Excel

[Bo Wisén]

Sorry for asking about Excel VBA in a Word group, but my ISP doesn't have a
Excel newgroup on their server.

I have figured out how to write something in the Excel footer:

Dim text as string

With ActiveSheet.PageSetup
.LeftFooter = text
End With

But is there a way to do the opposite, determine the actually footer text?

Thanks
Bo

 

[Doug Robbins]

If you set up a subscription (free) to the newsgroups on
msnews.microsoft.com, you will get access to all thousand or so Microsoft
Newsgroups.

Or go to http://support.microsoft.com/newsgroups/default.aspx

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Jean-Guy Marcil]

Bo Wisén was telling us:
Bo Wisén nous racontait que :

Sorry for asking about Excel VBA in a Word group, but my ISP doesn't
have a Excel newgroup on their server.

I have figured out how to write something in the Excel footer:

Dim text as string

With ActiveSheet.PageSetup
.LeftFooter = text
End With

But is there a way to do the opposite, determine the actually footer
text?

If you have access to the VBA help, selecting LeftFooter and hitting F1
would have told you that it is a read/write property that returns a string.

So

Dim FooterLeftText As String

With ActiveSheet.PageSetup
FooterLeftText = .LeftFooter
End With

MsgBox FooterLeftText

will do the trick.

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
(e-mail address removed)
Word MVP site: http://www.word.mvps.org