AdvancedFilter Error: The Extract Range Has A Missing Or Illegal Field Name

Trying to pass an array to a procedure to use as criteria in advanced filer.
My code below is raising this error:



Run-time error '1004':
The extract range has a missing or illegal field name


rngData. AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=rngCrit, CopyToRange:=rngDest, Unique:=False


Private Sub btnOK_Click()
Dim arrValues()
Dim lngI As Long
Dim lngX As Long

With Me.lstAccounts
If .ListIndex <> -1 Then
For lngI = 0 To .ListCount - 1 ................