I am getting vertical black lines in my final output pdf file and can't seem to figure out where they are coming from.

Attached is an example. The line in the center is not supposed to be there.
Capture.JPG

The code I am using to write to .pdf is:
Dim Name As String
Dim WhereTo As String
Dim sFileName As String
Dim manu As String
Dim D As String
Dim ws2 As Worksheet
Dim ws As Worksheet

Set ws2 = Sheets("Quote")
For Each ws In Worksheets
ws.PageSetup.PaperSize = xlPaperLetter
Next ws

'first 2 letters of manufacturer and date
manu = Sheets("quote").Range("g12")
manu = Left(manu, 2)
D = Format(Date, "mm-dd-yy")


WhereTo = "C:\Users\Me\Documents\WholesaleCabinets.US\Orders\To Order\"

Sheets("Order Form").Activate

Range("B11").Activate
Name = ActiveCell.Value

sFileName = WhereTo & Name & " " & manu & " " & D & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
sFileName

With ActiveSheet.PageSetup
     .Zoom = False
     .FitToPagesWide = 1
     .FitToPagesTall = 1
End With

    With Application
        .Screenupdating = False
        .EnableEvents = False
    End With
    

End Sub
I don't have any vertical lines in the area that is showing the lines or hidden cells. This is happening is another part of the document as well, about 2/3 of the way down.

Any suggestions?

Thanks