macro to run on all workbooks (apply header footer)

[bluepenink]

Hello

struggling to construct a macro that would apply the following codes to all pages in the workbook. can someone help me, thxs!

       With .PageSetup
            .LeftHeader = ""
            .CenterHeader = ""
            .RightHeader = "&""Arial,Regular""&8DRAFT"
            .LeftFooter = "&""Arial,Regular""&8&F"
            .CenterFooter = "&""Arial,Regular""&8Confidential"
            .RightFooter = "&""Arial,Regular""&8Page: &P of &N"
            .LeftMargin = Application.InchesToPoints(0.17)
            .RightMargin = Application.InchesToPoints(0.17)
            .TopMargin = Application.InchesToPoints(0.24)
            .BottomMargin = Application.InchesToPoints(0.26)
            .HeaderMargin = Application.InchesToPoints(0.17)
            .FooterMargin = Application.InchesToPoints(0.16)
            .Orientation = xlPortrait
            .Zoom = False
            .FitToPagesWide = 1
            .FitToPagesTall = False
        End With

 

[pboltonchina]

Try this on a copy of your data

For Each ws In Sheets
        ws.Activate

'your code

Next ws