Here is an example that puts the full workbook path in the title, and
changes when you switch workbooks


Public WithEvents App As Application

Private Sub Workbook_Open()
Set App = Application
End Sub

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Wn.Caption = Wb.FullName
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Nigel" wrote in message
...
Is is possible to change the Application Bar Title? It usually shows on
opening a workbook:... Microsoft Excel - 'name of open workbook'

--
Cheers
Nigel

Thanks everyone

--
Cheers
Nigel



"Bob Phillips" wrote in message
...
Here is an example that puts the full workbook path in the title, and
changes when you switch workbooks


Public WithEvents App As Application

Private Sub Workbook_Open()
Set App = Application
End Sub

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
Wn.Caption = Wb.FullName
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code



--

HTH

RP
(remove nothere from the email address if mailing direct)


"Nigel" wrote in message
...
Is is possible to change the Application Bar Title? It usually shows on
opening a workbook:... Microsoft Excel - 'name of open workbook'

--
Cheers
Nigel