Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightHeader = Format(Now, "mm/dd/yyyy hh:mm")
Next
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For Each ws In ActiveWorkbook.Worksheets
ws.PageSetup.RightHeader = "&""Avenir LT Book""&I&7" & Format(Now, "mm/dd/yyyy hh:mm")
Next
End Sub
This adjusting code stuff is VERY new for me and right now I am just trying to find a quick fix for my client as they are trying to get their price sheets out the door... way over due.
Bookmarks