Archive of Mr Excel Message Board

Ray, you will need to place this code in Workbook Module of your personal macro workbook.

Private Sub Workbook_Open()
Application.ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

To get to it Push Alt+F11 then Ctrl+R and in th "Project Explorer" double click "ThisWorkbook" in the "Personal.xls"

Dave

OzGrid Business Applications

The code supplied adds the full path.

Is there any way to stop it from prefixing this with "Microsoft Excel - " so that it diaplays the full path and nothing else??

JAF
Here's one way :-
Application.Caption = " "
To get it back again :-
Application.Caption = ""
Celia

Thanks for the reply. I can now set the caption to display what I want with:
Sub Custom_Caption()
Application.Caption = "JAF"
Application.ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

However, when I reset it using the code:
Sub Default_Caption()
Application.Caption = ""
Application.ActiveWindow.Caption = ActiveWorkbook.Name
End Sub
the ActiveWorkbook.Name suffixes the filename with .xls (I have the 3 letter extensions hidden by default).

Is it possible to reset the caption to display the filename but without the 3 letter extension?

JAF

Dave The code supplied adds the full path. Is there any way to stop it from prefixing this with "Microsoft Excel - " so that it diaplays the full path and nothing else??

JAF
Try this :-

Sub Default_Caption()
Application.Caption = ""
Application.ActiveWindow.Caption = Application.Substitute(ActiveWorkbook.Name, ".xls", "")
End Sub

Celia

Thanks Dave. Now that it works for one document is there a way to have the full path automatically appear for every file that is opened without having to add the code to every workbook