Hi phil,
Try:
<pre>
Sub replace()
ActiveWindow.Caption = "" 'remove window name
Application.Caption = "Hello!" 'replace "Microsoft Excel"
End Sub
Sub restore()
ActiveWindow.Caption = ActiveWorkbook.Name 'restore window name
Application.Caption = "" 'restore "Microsoft Excel"
End Sub
</pre>