VBA - Adding Footers and Headers

  • Hi,


    This code will update Sheet1's center header by changing A1 cell.


    'Code goes to Sheet1 module
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
    Sheet1.PageSetup.CenterHeader = Sheet1.Range("A1").Value
    End If
    End Sub


    Code line also can be changed like below to format font.


    Sheet1.PageSetup.CenterHeader = "&""Arial,Bold""&9" & Sheet1.Range("A1").Value


    You can also modify this code to set same font format with the source cell by using parameters for fontname, bold and size values.


    I hope this helps.

Participate now!

Don’t have an account yet? Register yourself now and be a part of our community!