Specific Session not available

[JamesDSM50328]

Hi I'am having an issue I am running a possible 6 sessions that I will be flipping between and to scrape info from.
I keep on getting an error that the Specified session is not available error -2147200922(80040200)

ReDim s(1 To Sessions.Count)
For sess = 1 To Sessions.Count
s(sess) = Sessions.Item(sess).Name
If StrComp(Sessions.Item(sess).Name, "Extra", vbTextCompare) = 0 Then Exit For
Next sess
For i = 1 To Sessions.Count
Do While Sessions(s(i)).Connected <> 1
   
    DoEvents
Loop

I'm just trying with 2 sessions now.
the name of the possibe sessions could vary depending on the selections they chose.
in the array the s(i) is picking up the session names of CPI1 and CPI3 but it is erroring on the Do while line.
Any help would be greatly appreciated.

THANKS

 

[IknowMe]

My guess is your not getting the expected result from Sessions.Count

With two seeeions open what does

msgbx Sessions.Count

tell you

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.

 

[IknowMe]

and possibly Sessions.Count index begins with 0 being the first session.

Wow, I'm having amnesia and deja vu at the same time.
I think I've forgotten this before.

 

[JamesDSM50328]

Thanks MrWilson for your response, i think I found a solution for some reason it did like sessions.item(sess).name but it worked once i had the path\name.edp

ReDim s(1 To Sessions.Count)
For sess = 1 To Sessions.Count
s(sess) = Sessions.Item(sess).Path & "\" & Sessions.Item(sess).Name & ".edp"

Next sess
For i = 1 To Sessions.Count
Do While Sessions(s(i)).Connected = False
    Debug.Print s(i)
    DoEvents
Loop

Next i

Unless someone can come up with a better solution or tell me where it is wrong, but it seems to work fine.