Option Explicit
Public oIE As Object
Public oSW As Object

Sub test()

Set oIE = CreateObject("InternetExplorer.Application")
Set oSW = CreateObject("Shell.Application")

For Each oIE In oSW.Windows
    MsgBox oIE.LocationURL
Next

End Sub