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