Well...my lumbering way of doing it is to have a sheet that time stamps
on the workbooks open event. Then it runs a bit o' code to set the
header with that cells value.
Here is an example of what I put together:
Code:
--------------------
Private Sub Workbook_Open()
timeStamp = Now()
Sheets("Sheet1").Range("A1").Value = timeStamp
Dim mySht As Variant
For Each mySht In Worksheets
mySht.PageSetup.LeftHeader = _
Format(Worksheets("Sheet1").Range("A1").Value)
Next
End Sub
--------------------
The above code is date and time stamping in cell A1 of Sheet1. Then it
sets the left header as that cells value....you would paste the above
code into the ThisWorkbook object....
Hope this helps
Dave M.
P.S. forgot to mention I have it set to setting the header for each
sheet in the workbook....
