Schleife --> Hilfe --> Dringend

folgender Code fuzt bei mir nur unter Excel 2000, ich brauch Ihn aber unter 97, habe schonmal unten gepostet, aber Beitrag ist fast weg, bitte nochmalHilfe:

Sub DateiEinlesen()
'On Error GoTo ERRORHANDLER
Dim iCounter As Integer
With Application.FileSearch
.LookIn = Cells(ActiveCell.Row - 1, ActiveCell.Column).Value
.Filename = "*." & Cells(ActiveCell.Row - 1, ActiveCell.Column + 1).Value
.Execute
For iCounter = 1 To .FoundFiles.Count
Cells(iCounter + 7, ActiveCell.Column).Value = Dir(.FoundFiles(iCounter))
Next iCounter
End With
'ERRORHANDLER:
End Sub

folgender Fehler bei Zeile:

.Filename = "*." & Cells(ActiveCell.Row - 1, ActiveCell.Column + 1).Value

Unzuläßiger Prozeduraufruf oder ungültiges Argment

Das ganze fuzt unter 2000 super, aber ich brauch es halt unter 97, bitte helft mir

Danke

Steffen