VBA invalid procedure call or argument (error 5)

Hej

Jeg får en fejl når jeg afvikler koden i Excel.

ub FileOpenDialogBox()
Dim str1 As String

str1 = Me.comFilter1 & "*.jpg"
With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Billede filer", "*.jpg", 1

        fullpath = .SelectedItems.Item(1) <<< Her stopper VBA
    End With
   
    If InStr(fullpath, ".jpg") = 0 Then
        Exit Sub
    End If

    ActiveSheet.Pictures.Insert(fullpath).Select

End Sub

Fejlen "VBA invalid procedure call or argument (error 5)" kommer hvordan af hjælper jeg problemet, har kørt uden problemer.