Margins control to VBA code
 

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

Margins control to VBA code
 

record a new macro
set your margin to 1.44
go take a look at the code
copy the line

voilà !