Display the current date and time in the Title Bar when a workbook was last saved
|
Macro Title:
|
|
First Caption Name:
|
|
Second Caption Name:
|
|
First Comment:
' |
|
Second Comment:
' |
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'display the current date and time in the second caption of the Title Bar
Application.Caption = Now()
'clear the first caption of the Title Bar
ActiveWindow.Caption = Empty
End Sub