Add Header/Footer Date VBA Code

 Add Header/Footer Date
Use this code to add a date into the header or footer in your worksheet.

You can edit this code for switching from header to footer.

Sub dateInHeader()
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = "&D"
.RightHeader = ""
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
ActiveWindow.View = xlNormalView
End Sub