Combine recursive listing with excluded code

[anmac1789]

I'm getting Run-time error 5: invalid procedure call or argument error and this line is highlighted:

i = Application.WorksheetFunction.Match(UCase(p.Name), aryFoldersToExclude, 0)

in the sub procedure called isFolderExcluded