ich habe es schon mal probiert, weil ich es trotz der vielen vorhandenen Beiträge nicht hin bekomme.
Kann mir jemand meinen Code ändern?
Besten DAnk Gruss volker
Anbei mein bisheriger Code
Sub BlätterLöschen()
'Dateien öffnen
Dim wks As Worksheet
Dim fs As FileSearch
Dim lRow As Long
Dim iCounter As Integer
'Application.ScreenUpdating= false
Application.DisplayAlerts = False
Set fs = Application.FileSearch~
lRow = 3
'lRow = InputBox("Zeilen Nr. angeben")
With fs
.SearchSubFolders = True 'mit Unterordner wenn =True
.Filename = "*.xls"
.LookIn = Range("D1").Value
.Execute
For iCounter = 1 To .FoundFiles.Count
'Cells(lRow, 1).Value = .FoundFiles(iCounter)
If VBA.FileDateTime(.FoundFiles(iCounter)) < Now - 14 Then
lRow = lRow
Workbooks.Open .FoundFiles(iCounter), False