Set the reference like Chip said, then here is another version of code that
should do what you want. Replace "Google" with the page you are using.

Public Sub CheckIE()
Dim objSW As SHDocVw.ShellWindows
Dim objIE As SHDocVw.InternetExplorer
Dim objDoc As Object
Dim bAppRunning As Boolean

'Set objSW = New SHDocVw.ShellWindows
If objSW.Count Then ' new
For Each objDoc In objSW
If InStr(1, objDoc.LocationName, "Google") Then
bAppRunning = True
objDoc.Visible = True
Exit For
End If
Next objDoc
End If
If bAppRunning = False Then
Set objIE = CreateObject("InternetExplorer.Application") ' new
objIE.Visible = True
objIE.Navigate "www.google.com"
End If

Set objIE = Nothing
Set objSW = Nothing
End Sub

Paul D

wrote in message
oups.com...
: Hi folks,
: I'm trying to do the following:
:
: Test to see if Internet Explorer already has an instance open to address
"www.mypage.com", for instance.
: If it is already open, then change focus to that existing window.
: If it is not already open, then start a new instance of IE with that
URL.
:
: I've got many years as a programmer, but new to this language. I did
: find the following code that looks close to what I want, but I get an
: error msg that reads: "User-defined type not defined" - referencing the
:
: variable "objSW As SHDocVw.ShellWindows"
:
: Here is the code I found:
:
:
: Dim objSW As SHDocVw.ShellWindows
: Dim objIE As SHDocVw.InternetExplorer
: Dim objDoc As Object
:
:
: Set objSW = New SHDocVw.ShellWindows
: If objSW.Count Then ' new
: For Each objIE In objSW
: If InStr(1, objIE.FullName, "mypage") Then
: Set objIE = objSW.Item
: fAppRunning = True
: Exit For
: Else
: Set objIE = CreateObject("InternetExplorer.Application")
: End If
: Next objIE
: Else ' new
: Set objIE = CreateObject("InternetExplorer.Application") ' new
: End If
:
:
: objIE.Visible = True
:
:
: objIE.Navigate "www.mypage.com"
:
:
: Set objDoc = Nothing
: Set objIE = Nothing
: Set objSW = Nothing
:
:
: THANK YOU in advance for your help. GREATLY APPRECIATED!
: Kind regards,
: Cole
: