Enter Header and Footer VBA

[Ron512]

I need troubleshooting help.
The intention of the below code is to enter a header and footer on all of the sheets in the workbook.
It is not entering the header or footer.

Thanks
Ron

Sub HeaderFooter()

Dim ws As Worksheet

'On Error Resume Next
Application.ScreenUpdating = False

 For Each ws In ThisWorkbook.Worksheets
    With ws.PageSetup
        'Header
        '.LeftHeader = ""
        .CenterHeader = "Entered Header"
        '.RightHeader = ""
        'Footer
        '.LeftFooter = "Path : ""
        .CenterFooter = "Entered footer"
         '.RightFooter = ""
    End With

Next ws

Set ws = Nothing

Application.ScreenUpdating = True

End Sub

 

[SteveO59L]

worked fine for me

 

[Ron512]

SteveO59L,
Thanks for giving it trying. It did work as expected when I copied it to a workbook but it did not work when I ran it from personal. Any ideas?