Its baaaack.
Something tells me this is going to continue to haunt me until I have an understanding of why its happening. Here's my revised code in its entirety:
Sub List_Projects
'loops through the main body and extracts the link property of all returned projects
'Assumes a region has been selected
dim iexplore, blah1, blah2, blah3, name_prop, name_prop_length
Set iexplore = Aliases.iexplore
set blah1 = iexplore.Page(Project.Variables.server & "gsa/webbas01.nsf/(vwwebpage)/webbase.htm?opendocument&Set=1,Scope=RPL_____,App=Basics__________,Select=P-Active-2,")
blah2 = blah1.FindAllChildren("nameProp", "webbase*", 13)
If UBound(blah2) >= 0 ThenFor i = 0 to 3'ubound(blah2)
name_prop_length = len(blah2(i).nameProp)
' extract the project ID from the nameprop property:
Select case name_prop_length
Case 80
Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 1)
Case 81
Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 2)
Case 82
Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 3)
Case 83
Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 4)
Case 84
Project.Variables.proj_id = mid(blah2(i).nameProp, 78, 5)
end Select
' run the sub to change the state to completed
Change_Project_State
next else msgbox("no values returned")
End If
end Sub
Now I'm calling another sub (Change_Project_state), which runs fine the first iteration, then the old "Permission Denied - blah(...).nameprop appears. Why!?????????