I have this program that take values from the cell B3 an B4 on th Sheet1 and
put them automatically in all headers and footers in all the worksheets (see
below).
However, when I run the program all the sheets got the header and footer
except the sheets that have chart.
Could you please help me to fix this problem?.

Thanks in advance.

Maperalia




Option Explicit
Sub HeadersAndFooters()
Dim WS As Worksheet
For Each WS In Worksheets

'***********Header***********
WS.PageSetup.RightHeader = "&14&B&I" &
Format(Worksheets("Sheet1").Range("B3").Value)

'***********Footer***********
WS.PageSetup.LeftFooter = "&14&B&I" &
Format(Worksheets("Sheet1").Range("B4").Value)

Next WS
End Sub