See Formatting and VBA Codes for Headers and Footers
Sub Date_Time() ActiveSheet.PageSetup.CenterHeader = "&D &B&ITime:&I&B&T" End Sub