is there a way to format the date in an excel footer eg just year

[Guest]

trying to automate a copywrite notice that contains just the year, is there a
way to limit/format how &[Date] shows in the footer?

 

[Dave Peterson]

Record a macro when you add any old copyright date to a footer.

You'll get some code that boils down to something like:

With ActiveSheet.PageSetup
.CenterFooter = "Copyright: 12/25/2007"
End With

You can change it to:

With worksheets("sheet9999").PageSetup
.CenterFooter = "Copyright: " & format(date, "yyyy")
End With

Date is today's date -- like =today() in a cell.

trying to automate a copywrite notice that contains just the year, is there a
way to limit/format how &[Date] shows in the footer?