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?