Global Footers

[Joanie]

Is there a way that I can automatically have the same footers appear in all sheets in all worksheets?

 

[Datsmart]

Quick way to customize the header and footer and apply it to all the tabs

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .LeftHeader = "Whatever" 'some text
        .RightHeader = Date 'today's date
        .LeftFooter = Me.FullName 'Full path
        .RightFooter = Environ("UserName") 'User's login name
    End With
End Sub