I need some help. The code below populates the header and footer
information from cells on what I named the header page.

I need this code to also adjust the top margin to 1.44" on the sheet
when the header is updated.

Thanks in advance!


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")
& vbCr & .Range("M5") & vbCr & .Range("M6")
dStr = "&6" & 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


--
retseort
------------------------------------------------------------------------
retseort's Profile: http://www.excelforum.com/member.php...o&userid=24690
View this thread: http://www.excelforum.com/showthread...hreadid=481889