Footer creation using macro/cell reference

[Bunny Glenn]

Is there syntax I can use in a macro that will allow me to automatically populate the three sections of my footer?

I would like to reference three cell's contents of a worksheet to use in my footer without having to go through he "File" "Page Setup" procedure.

 

[Jay Petrulis]

Hi,

Try the following. Adjust to suit your requirements.

<pre>Sub test()
Dim x, y, z
With Sheets("Sheet1")
x = .Range("A1")
y = .Range("A2")
z = .Range("A3")

With .PageSetup
.LeftFooter = x
.CenterFooter = y
.RightFooter = z
End With
End With

End Sub</pre>