Path in Caption (XL2000 SR1)

Topic

New Reply

I use a macro I found in one of Woody’s newsletters to put the path in XL’s title bar:
Sub Opener()
Application.Dialogs(xlDialogOpen).Show
Application.ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

This is assigned to the open file button.

However when several files are selected simutaneously from the Open dialog box, only the one opened last has the path in the caption. Can one of you VBA experts modify the macro so all the files opened show the path?

Reply | Quote

Replies

Hi,

Use this instead:

Option Explicit

Sub Opener()
Dim vFileList As Variant
Dim iCount As Integer
vFileList = Application.GetOpenFilename(MultiSelect:=True)
If TypeName(vFileList) = “Boolean” Then Exit Sub

For iCount = 1 To UBound(vFileList)
Workbooks.Open vFileList(iCount)
Application.ActiveWindow.Caption = ActiveWorkbook.FullName
Next

End Sub

Reply | Quote

Many thanks Jan

Reply | Quote