Home |
Search |
Today's Posts |
#1
|
|||
|
|||
How to change the Excel Title Bar to show the full file path na...
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? |
#2
|
|||
|
|||
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) "lmilkey8855" wrote in message ... 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? |
#3
|
|||
|
|||
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) "Bob Phillips" wrote in message ... 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) "lmilkey8855" wrote in message ... 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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel 2003 FAILS, but Excel 2000 SUCCEEDS ??? | Excel Discussion (Misc queries) | |||
Read Text File into Excel Using VBA | Excel Discussion (Misc queries) | |||
Excel 2000 file when opened in Excel 2003 generates errors? | Excel Discussion (Misc queries) | |||
double click a xls file and start Excel but without the file | Excel Discussion (Misc queries) | |||
My Excel Title bar does not indicate what file is open | Excel Discussion (Misc queries) |