Office: Application.FileSearch

Hallo zusammen,
ich habe ein Problem und werde aus Beschreibungen/Codes im Internet nicht schlau bzw. die Makros sehen so lang aus, dass ich mir denke, dass es auch einfacher gehen muss.


Sub Vergleichbare_Daten_Finden()
Dim diesedatei As Workbook 'die Checkdatei
Dim datei As Workbook 'innerhalb einer Schleife die Input-Bondstabellen

Dim i As Integer 'allgemeine Zählvariable

Dim PfadA As String 'Pfad der gesuchten Daten
Dim PfadO As String 'Pfad der gesuchten Daten
Dim qq As Integer
Dim qqq As Integer
Dim qqqq As Integer

'Variablen initialisieren

Set diesedatei = ThisWorkbook
PfadO = diesedatei.Worksheets("Cockpit").Range("C4").Value

( 'Cockpit ist der Name des Blattes, in denen die Dateien aufgelistet werden sollen)
PfadA = diesedatei.Worksheets("Cockpit").Range("C5").Value

'Dateien suchen, die "Proj" im Namen haben und diese entsprechend auflisten
With Application.FileSearch .NewSearch
.LookIn = PfadO
.Filename = "*11*Proj*GE*"
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
.Execute

Range("O14").Offset(1, 0).Value = Right(.FoundFiles(1), Len(.FoundFiles(1)) - Len(PfadO) - 1)



End With



Wie kann ich den Code abändern, dass er auch in Excel 2010 funktioniert und das ohne einen elend langen Code zu produzieren?

Danke und liebe Grüße
Anna