look as this:

Sub ListFiles()
Dim ws As Worksheet
Dim index As Long
Dim folder As String
Dim fn
folder = "H:\Excel_Demos\*.xls"
fn = Dir(folder)
If fn < "" Then
Set ws = Worksheets.Add(Worksheets(1))
End If
Do Until fn = ""
index = index + 1
ws.Cells(index, 1) = fn
fn = Dir()
Loop
End Sub

"Steve" wrote:

Hi All,



I am looking for some help with the following:



I have an excel spreadsheet that I am using as a

master database. This database needs to be updated quarterly

with the names of various individuals from four different regions.



In order to make the data entry more convenient I would like

to provide a template workbook to various folks who will be responsible

for completing the data for their regions.



Once the template workbook is returned, I would like to click on a

button in the master database file which will allow me to specify the

location of the template file and import all the names from the various

template files into the master database starting at the next empty

row in the master database.



Any ideas on how to accomplish the above?



All suggestions welcome.



Thanks,



Steve