タイトルバーに表示される文字は標準で「Microsoft Excel」
および、「Book1.xls」(ブック名)になります。
前者を Application.Caption 、
後者を ActiveWindow.Caption で変更できます。

アプリケーションのタイトル変更はこうなります。

Sub Sample1()
  Application.Caption = "VBA@XL"
End Sub

元に戻すには、Emptyを代入します。

Sub Sample2()
  Application.Caption = Empty
End Sub

アプリケーションのタイトルを消すことはできませんが、スペースを代入すれば擬似的に可能です。

Sub Sample3()
  Application.Caption = " "
End Sub

ブックのタイトル変更はこうなります。

Sub Sample4()
  ActiveWindow.Caption = "Sample"
End Sub

ブックのタイトルを元に戻すのにEmptyは使えませんのでこのようにします。

Sub Sample5()
  ActiveWindow.Caption = ThisWorkbook.Name
End Sub

ブックのタイトルを消すにはこうなります。

Sub Sample6()
  ActiveWindow.Caption = ""
End Sub