How might I refer to an open instance of internet explorer?
I want to return the web address of an open instance of IE in a cell
If it were a web browser object it would be this:

sheets.("Main Board").Range("C1")=webbrowser1.location URL

What do I need to replace "webbrowser1" with??

Sub ListIeUrls()

Dim objShell As Object, o As Object

Set objShell = CreateObject("Shell.Application")
For Each o In objShell.Windows
If TypeName(o.document) Like "HTMLDocument*" Then
Debug.Print o.document.Location
End If
Next o

End Sub

Tim

"Atishoo" wrote in message
...
How might I refer to an open instance of internet explorer?
I want to return the web address of an open instance of IE in a cell
If it were a web browser object it would be this:

sheets.("Main Board").Range("C1")=webbrowser1.location URL

What do I need to replace "webbrowser1" with??