Spørgsmål til VB i Excel

Hej eksperter

Hvad er der galt her?

Sub Findfil(ByVal Filnavn As String)
Dim fs As Variant
Set fs = Application.FileSearch

With fs
.Filename = Filnavn
.SearchSubFolders = True
.LookIn = ActiveWorkbook.Path


        If .Execute = 0 Then
        MsgBox ("Filen " & Filnavn & " findes ikke!")
        Workbooks.Open Filename:=Filnavn
        End If
        End With
End Sub

Den giver fejl i linien:
Set fs = Application.FileSearch

På forhånd tak

Jesper T