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