Comments on: Formatting Footers in VBA

By: Michael

Michael — Fri, 09 May 2008 17:56:00 +0000

Hi Jaime -

It's quite doable. In Dick's code, replace the line

Const sDATE As String = "&D"

With

Dim sDATE As String = Format(Date, "ddmmmyy")

...Michael

By: Tim

Tim — Fri, 09 May 2008 15:06:00 +0000

Steve: You are able to get the contents of a cell in the footer. Here is an example of some code to take the contects of cell(1,1) and putting it in the footer:

Sub CreateFooters()
Sheet1.PageSetup.RightFooter = Sheet1.Cells(1, 1)
End Sub

By: Steve

Steve — Thu, 08 May 2008 12:28:00 +0000

Is it possible to get the content of a cell in the footer?
Each sheet has a title. We would like to print this title in the footer.

By: Jamie

Jamie — Wed, 23 Apr 2008 22:52:00 +0000

First of all I’m not at all knowledgable about VBA code other than what I found on the internet today so please forgive me if I’m not explaining my question very well. I would like to format the date in the footer. If I write the following command &[Date] I get a date in the following format 4/23/2008. I would like the date to appear like this instead – 23APR08. Is this possible? Or am I asking too much?
Thanks in advance.

By: Sanjeev Kumar

Sanjeev Kumar — Wed, 02 Apr 2008 15:15:00 +0000

How can I add a picture in the footer/header through Visual Basic?

By: Unofficial Microsoft Office Stuff

Unofficial Microsoft Office Stuff — Tue, 05 Apr 2005 15:23:00 +0000

Formatting Codes for Headers and Footers

Excel Roll your own From Microsoft support: The following list contains the format codes that you can use in headers and footers.

By: Dick

Dick — Mon, 10 Jan 2005 02:56:00 +0000

You gave the answer before I read the question:) Cool, though, thanks for the pointing this out. I’ve never run into it before, but I can’t imagine how I would have debugged it if I did. That seems like a tricky one.

By: Stephen Bullen

Stephen Bullen — Sun, 09 Jan 2005 22:26:00 +0000

If sFooter starts with a number, Excel thinks it's part of the font size formatting, so you end up with a missing number and the rest of the footer in a very large font! The solution, of course, is to include space after the &10:

ActiveSheet.PageSetup.LeftFooter = "&10 ? & sFooter

By: Stephen Bullen

Stephen Bullen — Fri, 07 Jan 2005 21:04:00 +0000

Be careful, though. Spot the bug in the following, which sets a 10pt footer:

Public Sub SetLeftFooter(ByVal sFooter As String)

ActiveSheet.PageSetup.LeftFooter = "&10? & sFooter

End Sub

By: Dennis

Dennis — Fri, 07 Jan 2005 12:40:00 +0000

There are a few other codes for alignment, formatting etc., and a full list on the “Formatting codes for Headers and Footers” Help page.