could the double line be at the top of the 1st row of the worksheet?
the code below removes the border at the top of row 1.

For sh = 1 To Sheets.Count
With Sheets(sh).PageSetup
LeftHeader = "&8Town: " & Me.City_1.Value & vbNewLine _
& "Office: " & Me.Office_1.Value

CenterHeader = "&8TEO No: " & Me.TEO_No_1.Value & vbNewLine _
& "Supplier Order No: " & Me.CES_No_1.Value

RightHeader = "&8Page &P of &N" & vbNewLine _
& "Appendix No :" & Me.TEO_Appx_No_2.Value

CenterFooter = "&8RESTRICTED - PROPRIETARY INFORMATION" &
vbNewLine & _
"Not for Use or Disclosure outside AT&T except under Written
Agreement "

LeftFooter = ""
RightFooter = ""
LeftMargin = Application.InchesToPoints(0.25)
RightMargin = Application.InchesToPoints(0.25)
TopMargin = Application.InchesToPoints(0.55)
BottomMargin = Application.InchesToPoints(0.7)
HeaderMargin = Application.InchesToPoints(0.25)
FooterMargin = Application.InchesToPoints(0.25)

ScaleWithDocHeaderFooter = True
AlignMarginsHeaderFooter = True

End With

With Sheets(sh)
With Rows(1).Borders(xlEdgeTop)
LineStyle = xlNone
End With

End With
Next sh


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=165166

Microsoft Office Help