Custom page footers

[RichardMGreen]

Hi all

I want to add a custom cell footer to several tabs in a worksheet and I need it to be the contents of a cell.

I've found some code to add the footer to the bottom of the active sheet but I wondered if it was possible to add it to the entire workbook with doing each sheet individually.

The code I've found is here:-

ActiveSheet.PageSetup.LeftHeader = "Data Extraction Date " & Sheets("Query_List").Range("H18").Value

(I've updated it to reference the cell I want).

So, is it possible to apply this to an entire workbook at once?

 

[Sektor]

No, footer is sheet-specific. If you wanna add same footer to all sheets, you are to iterate through each sheet.

 

[Steeviee]

Actually, I found a way to do it:

    Sheets(Array("x", "y", "z").Select
    Sheets("x").Activate
    With ActiveSheet.PageSetup

        .CenterHeader = "some stuff to all"

    End With
End Sub

So: group all of the sheets that you want to apply your header to and then do page set up.

HTH

 

[RichardMGreen]

Thanks for that Steeviee, I'll give it a go.