Application Title

[Nigel]

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

 

[Paul Martin]

Hi Nigel

Application.Caption = "My Caption Here" will change to the value of
your choice.
Application.Caption = "" will restore to default value

Regards

Paul Martin
Melbourne, Australia

 

[Guest]

What you see at the top of your screen is actually a combination of the
application caption ("Microsoft Excel") and the activewindow caption (Name of
workbook). So you can change this by using:

Sub AppCapp()
Application.Caption = "Something else"
ActiveWindow.Caption = "Whatever"
End Sub

ActiveWindow.Caption = False will return the name of the workbook. You have
to reset the Application Caption manually.

Hope this helps
Rowan

 

[Bob Phillips]

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]

Thanks everyone

--
Cheers
Nigel

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)