Fred

Assumes 3 cells have the data.

If only one cell, do the editing.

Sub CellInFooter()
With ActiveSheet
.PageSetup.CenterFooter = "To: " & .Range("A1").Value & vbLf & _
"Attention: " & .Range("A2").Value & vbLf & _
"Phone Number: " & .Range("A3").Value
End With
End Sub


Gord Dibben MS Excel MVP

On Mon, 2 Jun 2008 15:34:01 -0700, Fred wrote:

I am attempting to populate the center section of a custom header with data
which is dependent upon reference to data in a worksheet cell. In this case,
I am creating a custom order form which is addressed to a different supplier
and will have different ("To:", "Attention:", and phone number information).