Try This:
Set IEObject = GetObject( ,"InternetExplorer.Application" )
*Notice the comma before “InternetExplorer.Application”
EDIT:
Try this:
Dim IE As SHDocVw.InternetExplorer
Set IE = GetObject(,"InternetExplorer.Application")
You can also try this:
Dim ShellApp
Set ShellApp = CreateObject("Shell.Application")
Dim ShellWindows
Set ShellWindows = ShellApp.Windows()
Dim i
For i = 0 To ShellWindows.Count - 1
If InStr(ShellWindows.Item(i).FullName, "iexplore.exe") <> 0 Then
Set IEObject = ShellWindows.Item(i)
End If
Next
IEObject.Navigate2("http://www.google.com")
EDIT:
What you are trying may not be possible, take a look at this. http://support.microsoft.com/kb/239470