Clear caption in the Title Bar

Macro Title:
Clear First Caption Name:
Clear Second Caption Name:
First Comment:

'
Second Comment:

'

Sub Clear_Title_Bar_Caption()
'clear the first caption of the Title Bar

ActiveWindow.Caption = Empty

'clear the second caption of the Title Bar

Application.Caption = Empty

End Sub