How to change the Excel Title Bar to show the full file path na...

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a user that would like to see the full path name of a file in Excel in
the Title Bar. Is there any way to change it from just the file name to the
full path name?
 
This will put the path in the Excel title bar.


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

RP
(remove nothere from the email address if mailing direct)
 
If you must have what you asked for (:-)), use this instead in the class
module

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


--

HTH

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