Thanks Tom. However I already got a different code written. Could yo
look at it? This works for me but I can't get the footer to a differen
font size. I.E. 8pt font. It seems to be defaulting and nothing I hav
tried will override the default.

I only need the footer to be reduced in font size. The code below i
without my attempts to control this.

Sub SetHeader(sh As Worksheet)
Dim lStr As String
Dim rStr As String
Dim dStr As String

With Worksheets("HeaderPage")

lStr = .Range("J2") & vbCr & .Range("J3") & vbCr
.Range("J4")
rStr = .Range("M2") & vbCr & .Range("M3") & vbCr
.Range("M4")
dStr = .Range("W1") & vbCr & .Range("W2") & vbCr & .Range("W3"
& vbCr & .Range("W4")
End With

With sh.PageSetup
.LeftHeader = lStr
.RightHeader = rStr
.CenterFooter = dStr

End With
End Sub


Thanks
Da

--
retseor
-----------------------------------------------------------------------
retseort's Profile: http://www.excelforum.com/member.php...fo&userid=2469
View this thread: http://www.excelforum.com/showthread.php?threadid=48058