Hi Energy,
I'm not sure of a way to do this for all workbooks, unless you load an add-in at Excel startup, but here's a way to do it for an individual workbook:
Private Sub Workbook_Open()
Application.Caption = ActiveWindow.Caption
ActiveWindow.Caption = ""
End Sub
That will remove 'Microsoft Excel -' from the title bar and replace it with just the file name (ActiveWindow.Caption). It then sets the ActiveWindow.Caption to blank so it doesn't show twice.
To get it back, you could simply do
Private Sub Workbook_BeforeClose(Cancel as Boolean)
Application.Caption = ""
ActiveWindow.Caption = ThisWorkbook.Name
End Sub
Bookmarks