Insert current date into footer
This tutorial shows how to insert the current date into a footer in a specific sheet using Excel and VBA
Select sheet > Insert tab > Text group > Header & Footer > Select footer area > Design tab > Header & Footer Elements group > Current Date > Click anywhere on the sheet
1. Select the sheet in which you want to insert the current date in the footer. Note: In this example we have selected Sheet1. |
2. Select the Insert tab. |
3. Select the Text group. 4. Click on Header & Footer. |
5. Scroll to the bottom of the page and select the footer area in which you want to show the current date. Note: In this example we have selected the center footer area. |
6. Select the Design tab. 7. Click on Current Date in the Header & Footer Elements group. |
8. This will insert &[Date] in the selected footer area which will return the current date. 9. Click anywhere on the sheet. |
Sub Insert_current_date_footer()
'declare a variable
Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
With ws.PageSetup
.CenterFooter = "&D"
End With
End Sub
NOTES
Note 1: This VBA code will insert the current date into the center footer area of "Sheet1".
Note 1: This VBA code will insert the current date into the center footer area of "Sheet1".
RELATED TOPICS
Related Topic | Description | Related Topic and Description |
---|---|---|
Insert a header | How to insert a header | |
Insert a footer | How to insert a footer in a specific sheet | |
Insert page numbers into footer | How to insert page numbers into a footer in a specific sheet | |
Insert current date into header | How to insert the current date into a header in a specific sheet |