Header Footer Editor VBA

[smit3446]

I'm having issue with a macro that I never used to have issues with. The code goes through the Header/Footer of each worksheet within the workbook and updates it with three lines in the Left Header:

Company Name
Program
Effective Date

It also adds in a logo that we use in the right footer and sheet name in the left footer. Here is the code:

Sub header_footer_unscale_new()Dim ws As Worksheet




For Each ws In ActiveWorkbook.Worksheets
   
    With ws.PageSetup
        .ScaleWithDocHeaderFooter = False
        .TopMargin = Application.InchesToPoints(0.9)
        .LeftHeader = "&""Arial,Bold""&8Company Name" & vbCr & "Program" & vbCr & "Effective July 1, 2018"
        .RightHeader = ""
        .LeftFooter = "&""Arial Narrow,Regular""&A"
        .RightFooter = "&G" 'specifies that you want an image in your footer
        .RightFooterPicture.Filename = "C:\Users\User1\Desktop\Excel Logo.jpg" 'specifies the image file
        
    End With
    ActiveWindow.View = xlNormalView
    Range("A1").Activate
    
Next
            
End Sub

I'm getting a Run-time error 1004 with the following line:

        .LeftHeader = "&""Arial,Bold""&8Company Name" & vbCr & "Program" & vbCr & "Effective July 1, 2018"

Is the syntax off? What am I doing wrong? Thanks in advance.

 

[Logit]

.
Ran your macro just as posted and it works fine here for all sheets.

?????

 

[smit3446]

Well at least I know I'm not going crazy, I couldn't figure it out (still can't). I've never ran into this problem before.

 

[Logit]

Sometimes my computer will act up when using Excel. If I reboot, oftentimes the squirrely errors disappear.

Go figure.