Display the current date and time in the Title Bar when opening a workbook
|
Macro Title:
|
|
First Caption Name:
|
|
Second Caption Name:
|
|
First Comment:
' |
|
Second Comment:
' |
Private Sub Workbook_Open()
'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