list Workbooks in Current Folder
Try this, it assumes your "MasterWorkbook" is the ActiveWorkbook :
Sub listProjectFiles()
Sheets.Add
myFile = Dir(ActiveWorkbook.Path & "\*.xls")
i = 1
Do While myFile < ""
If myFile < ActiveWorkbook.Name Then
Cells(i, 1) = myFile
i = i + 1
End If
myFile = Dir
Loop
End Sub
....Chris
"jC!" wrote in message
om...
hi all,
your help is mostly appreciated for following:
i have a dedicated folder (called "Project" for example) which has
following Workbooks:
Workbook1
Workbook2
Workbook3
and most important
MasterWorkbook
now i would like to have a macro which is executed in the
MasterWorkbook that will generate the list of all the Workbooks in the
folder where the MasterWorkbook resides ("Project" folder in this
example) except for the MasterWorkbook itself on a specific sheet
(called "Workbook Overview" for example).
in this example on MasterWorkbook.Workbook Overview the list would be
as follow:
Workbook1
Workbook2
Workbook3
thanking you for your time - cheers...
...jurgenC!
|