Hallo Andreas,
ich bin kein Excelspezialist, aber ich denke:

das Macro muß auf jeden Fall wissen, wo die Datei liegt.
Also entweder muß der Anwender das Verzeichnis angeben
(zB. mit

Verzeichnisnamen = InputBox("Verzeichnisnamen eingeben", "Abfrage")

)
oder das Verzeichnis muß vorgegeben sein,
oder Du müsstest relativ aufwendig eine Funktion schreiben, die nach der Datei sucht,
oder Du mußt eine andere Datei an einem vorgegebenen Ort abspeichern, in der steht, wo die xls Datei liegt.

Ich mache das in meiner Firma so, daß ich für mein Tool im Ordner

C:\Dokumente und Einstellungen\<AnwenderName>\Anwendungsdaten\<FirmenName>\<ToolName>

eine Datei speichere, in der alles nötige steht.
An den Verzeichnisnamen kommst Du in Excel mit

Environ("USERPROFILE") & "\Anwendungsdaten\..."

hi all :-)

ein beispiel :-)

gruss nighty

verzeichnistiefe sollte nicht zu hoch sein

Sub FilesListen()
Dim Dateien As Integer
Dim DateiName As String
With Application.FileSearch
.NewSearch
.LookIn = "D:\Musik\Interpret\"
.SearchSubFolders = True
.Filename = "DeinDateiname.xls"
If .Execute() > 0 Then
For Dateien = 1 To .FoundFiles.Count
DateiName = Dir(.FoundFiles(Dateien))
If DateiName <> ThisWorkbook.Name Then
Workbooks.Open Filename:=.FoundFiles(Dateien)

Workbooks(DateiName).Close
End If
Next Dateien
End If
End With
End Sub