path in title bar

[joe]

Some time ago I found instructions to show the entire path
in the title bar of excel, instead of just showing the
workbook name. I think it was an application level event
but am not sure. I had it in my personal.xls file but my
computer crashed and I lost it. Does anyone have those
instructions?

 

[Bob Phillips]

Joe,

This may be what you are referring to

Put this code into a class module, mine is named clsAppEvents

'--------------------------------------------------------------
Option Explicit

Public WithEvents App As Application

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
App.Caption = Wb.Path
End Sub
'--------------------------------------------------------------

Add this code to ThisWorkbook code module

'--------------------------------------------------------------
Option Explicit

Dim AppClass As New clsAppEvents

Private Sub Workbook_Open()
Set AppClass.App = Application
End Sub
'--------------------------------------------------------------

That's all there is to it.


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[joe.]

Exactly what I wanted. Thanks very much.
Joe

-----Original Message-----
Joe,

This may be what you are referring to

Put this code into a class module, mine is named clsAppEvents
-----
Option Explicit

Public WithEvents App As Application

Private Sub App_WindowActivate(ByVal Wb As Workbook, ByVal Wn As Window)
App.Caption = Wb.Path
End Sub
'--------------------------------------------------------- -----

Add this code to ThisWorkbook code module

'--------------------------------------------------------- -----
Option Explicit

Dim AppClass As New clsAppEvents

Private Sub Workbook_Open()
Set AppClass.App = Application
End Sub
'--------------------------------------------------------- -----

That's all there is to it.


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)




.