Hjælp til VBA kode

Måske kan noget i stil med dette brugs:

Sub GetFileNames()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = objFSO.GetFolder("C:\Temp\")
Application.ScreenUpdating = False
ThisWorkbook.Sheets("Sheet1").Range(Cells(2, 2), Cells(Rows.Count, 2)).ClearContents
R = 2
For Each myFile In myFolder.Files
If Right(myFile.Name, 4) = "xlsx" Or Right(myFile.Name, 4) = "xlsm" Then
  ThisWorkbook.Sheets("Sheet1").Cells(R, 2).Value = myFile.Name
  R = R + 1
End If
Next myFile
Application.ScreenUpdating = True
End Sub

1000 tak for hjælpen, virker som den skal :-)

Kan #1 bruges i Stifinder ?
a la:
For Each myFile In STIFINDER.files
?

Hej finb.
Det er noget jeg fandt på nettet og så rettede til. Det kan det vel.
I 3. linje skriver jeg hvilken folder der skal undersøges. Der skal du blot have hele stien med.