Wolfgang,
I deleted a return somehow. Those should be on seperate lines.

[VBA]
Sub GetModifiedFiles()
Dim f As Object, fso As Object, flder As Object
Dim folder As String, NumberOfDays As Integer
Dim wb As Workbook, ws As Worksheet
Set wb = ActiveWorkbook
Set ws = ActiveSheet
Set fso = CreateObject("Scripting.FileSystemObject")
NumberOfDays=InputBox("Enter NumberOfDays")

With Application.FileDialog(msoFileDialogFolderPicker)
.Show
If .SelectedItems.Count = 0 Then
MsgBox "Cancel Selected"
End
End If
folder = .SelectedItems(1)
End With
For Each flder In fso.GetFolder(folder).SubFolders
For Each f In fso.GetFolder(flder.Path).Files
If f.DateLastModified > Now() - NumberOfDays 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
Next
For Each f In fso.GetFolder(folder).Files
If f.DateLastModified > Now() - NumberOfDays 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]