Wolfgang,
I put some code together for you, so I'm going to post it anyway. If you figured it out from the KB, no worries.

[vba]
sub FileLink()
Dim f As Object, fso As Object
Dim folder As String
Dim wb As Workbook, ws As Worksheet
Set wb = ActiveWorkbook
Set ws = ActiveSheet
Set fso = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Cancel Selected"
End
End If

End With

For Each f In fso.GetFolder(folder).Files
If f.DateLastModified > Now() - 7 And f.Type = "Microsoft Excel Worksheet" Then
ws.Range("A" & ws.Rows.Count).End(xlUp).Offset(1, 0) = "=hyperlink(""" & f.Path & """,""" & f.ShortName & """)"
End If
Next

End sub
[/vba]

HTH
Cal

PS-Slight change on the error checking.