How Do I Insert Last Modified Date in Excel Header or Footer

This post will guide you how to insert the last modified data into header or footer in your current worksheet in Excel. How do I insert last modified date into header or footer with VBA macro in Excel 2013/2016.

Now you can easily to insert the workbook information, such as: filename, file path, current date into the header or footer by clicking commands. and there is no built-in command to insert last modified date and time into header or footer in your curret worksheet in Excel. And this tutorial explains how to use VBA macro to achieve the result.

Insert Last Modified Date into Header or Footer with VBA Macro


Assuming that you have a worksheet, and you wish to insert the last modified date and time into the header or footer, and you can use the following VBA macro to accomplish the result, just do the following steps:

Step1: open your worksheet that you wish to insert the last modified data into the header or footer.

Step2: click on “Visual Basic” command under DEVELOPER Tab, or just press “ALT+F11” shortcut.

Get the position of the nth using excel vba1

Step3: then the “Visual Basic Editor” window will appear.

Step4: double click ThisWorkbook in the VBAProject pane to open code window.
insert last modified date into header1

Step5: paste the below VBA code  into the code window. Then clicking “Save” button.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ActiveSheet.PageSetup.CenterHeader = "Last Modified Date " & Format(Date, "mm-dd-yy") & " " & Time
End Sub

insert last modified date into header2

Step6: You should see that the last modified date has been inserted into header in your worksheet.

insert last modified date into header3

Note: if you want to insert the last modified date into footer in your worksheet, and you just need to use the following vba macro code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ActiveSheet.PageSetup.CenterFooter = "Last Modified Date " & Format(Date, "mm-dd-yy") & " " & Time
End Sub

 

 

 

 

Sidebar