Bryan

I would do the concatenation in the header.

With April in A1 and Year to Date in A2

Sub foo()
With ActiveSheet
..PageSetup.LeftHeader = Range("A1").Value & vbLf & Range("A2").Value
End With
End Sub


Gord



On Tue, 1 May 2007 03:42:01 -0700, Bryan W.H.
wrote:

Expanding on this topic.

I'm using concantenate to set up the Header I want to use. Example would be
'April Year to Date" How can i turn this into a two line header?
Specifically..

April
Year to Date

The code is retrieving data from one cell. I thought about setting up the
data on two cells but i still can't figure out how to set up two lines in the
header.

Bryan

"Gord Dibben" wrote:

..PageSetup.LeftFooter = "&""Algerian,Regular""&16" & Range("A1").Value


Gord Dibben MS Excel MVP

On Thu, 15 Feb 2007 18:08:18 -0800, RCDWESTFIELD
wrote:

Dave,
can you also code font and font size into this program?
Thanks Bob

"Dave Peterson" wrote:

Instead of changing the header each time the cell changes, you could change the
header when you do a print (or printpreview).

Kind of like:

Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With Worksheets("sheet1")
.PageSetup.LeftFooter = .range("a1").value
End With
End Sub


This goes into the ThisWorkbook module.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Matthew wrote:

Is there a way to link the contents of a cell with the page header so that it
can change automatically when the cell changes. Also this would allow us to
change one cell and then link it to the header on several pages.

Thank you.
--
Respectfully
Matthew Russell

--

Dave Peterson