View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Chris Putzig Chris Putzig is offline
external usenet poster
 
Posts: 5
Default 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!