I did notice one thing. You've got an extra backslash once that whole folder path file name evaluates out:
'you've got trailing back slashes here:
strFldr = "C:\Documents and Settings\SeymourJ\My Documents\Tasks\": Lction = "C:\Documents and Settings\SeymourJ\Desktop\"
strFldr2 = "C:\Documents and Settings\SeymourJ\My Documents\Tasks2\": strFldr3 = "C:\Documents and Settings\SeymourJ\My Documents\Tasks3\"
'and these go into your variant array here:
varFolder = Array(strFldr, strFldr2, strFldr3)
'and here you give an extra backslash on the end of your strFlder, which is then accessed in what i'm guessing is the line that's throwing the error
Set wbResults = Workbooks.Open(varFolder(lngMyCount) & "\" & strF)
'take out that backslash, see if this makes it work:
Set wbResults = Workbooks.Open(varFolder(lngMyCount) & strF)
I rarely use the variant type of variable, but from what i know it's supposed to convert itself to whatever necessary. But you are using all variants in what is a string parameter. I know that VBA and excel do have bugs, and it just might be that you need to have a string in there, not a variant. If getting rid of the extra backslash doesn't cure it, try just putting a hardcoded string:
'try it with a hardcoded string:
Workbooks.Open("C:\Documents and Settings\SeymourJ\My Documents\Tasks\AND WHATEVER strF IS")