用VBA自动打开和登陆某个网址后，无法继续自动找到对应的链接去继续操作，跳转后的网页的代码怎样取？

登陆后的网页在浏览器中的地址是没有变化的，只是显示的内容有部分变化了，网页是带.aspx后缀的。请高手指点。

登陆进去之后，如果网址没有变化，刷新，只要网页加载完成即可
Do While IE.ReadyState = 4
       DoEvents
Loop


如果有弹出网页，用  以下代码  遍历一下网页就行了
Dim oShellApp, oShellAppWindows, oWin
            Set oShellApp = CreateObject("Shell.Application")
            Set oShellAppWindows = oShellApp.Windows

            Do '
                For Each oWin In oShellAppWindows
                    If InStr(oWin.LocationURL, "GLDU9068569") Then
                        'oWin.Quit
                        a = oWin.LocationURL
                        Exit For
                    End If
                Next
                DoEvents
            Loop Until a <> ""

1.下面看实例。 2.上图中，在sheet1中，a列的a3单元格，数据是“李四”； 3.看上图，sheet2中的a23单元格，内容也是“李四”； 　　现在，要做的是，在sheet1中，点击a3中的“李四”，就会自动跳到sheet2中的a23单元格。 　　可以这样说，无论点击sheet1a列中的任何一个单元格，只要在sheet2中的a列，有与其值相同的，就自动跳到sheet2的相应单元格； 　　方法是：右键点击“sheet1”，在弹出的快捷菜单中，点击“查看代码”，如下图。 4.之后，会弹出如下图一个的vb代码编写窗口。 5.这个时候，无须做额外的代码编写，只需要按照上图，把代码粘贴上去就完成了。 　　为了方便大家的学习，下面，将代码贴到下文： 　　private sub worksheet_selectionchange(byval target as range) 　　if target.column = 1 then 　　if sheet1.cells(target.row, 1) <> "" then 　　for i = 1 to sheet2.usedrange.rows.count 　　if sheet2.cells(i, 1).value = sheet1.cells(target.row, 1).value then 　　sheet2.activate 　　sheet2.range("a" & i).select 　　end if 　　next i 　　end if 　　end if 　　end sub