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

 

 

 

 

Related Posts

Find and Replace Multiple Values

This post will guide you how to find and replace multiple values at once with VBA macro or using formula  in Excel. How do I make multiple find and replace in Excel. Suppose that you have a few cells containing ...

VBA Macro For VLOOKUP From Another Sheet

In the previous post, you should know that how to fix or remove the #N/A error when using VLOOKUP formula to lookup value from another sheet. And this post will show you how to use VBA code to vlookup data ...

How To Insert Comments in Protected Worksheet in Excel

This post will show you how to allow comments in a protected worksheet in Excel. You can easily to insert comments into cells in a normal worksheet in Excel, but if want to insert a comment in a worksheet that ...

How To Convert Text to Upper Cases(Using VBA) in Excel

This post will show you how to switch from lower case to upper case in Excel. and I am going to show you two different ways of converting text to upper cases using formula or VBA macro in Excel 2013,Excel ...

How To Hide Every Other Row in Excel (Using VBA)

This post will show you how to hide alternate rows or columns in Excel or how to hide every third, fourth, fifth row or column in Excel. If you want to hide every other row in your current worksheet, how ...

Sidebar