Web Link - multiple instances
 

Hi All,
Can someone help me out please, I have an application that incorporates some
web hyperlinks that I wish the user to access. At present if they initiate
the link the browser opens and all is OK. If they do not shut this instance
of the browser and switch back to Excel and click the link again, another
instances of the browser is created.

I had hoped that the use of the NewWindow parameter would prevent this (as
example that follows) but regrettably not.
Any ideas how I can test if a instance of the browser is open, if yes, use
it and do not create a new instance, otherwise open a new browser?

So far..... but not working!

Sub WebLink()
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"),
Address:="http://www.foo.com/"
Selection.Hyperlinks(1).Follow NewWindow:=False
End Sub




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =---

Web Link - multiple instances
 

Nigel

I have no idea what NewWindow is supposed to do. It's a nice ideas, but it
doesn't seem to do what one would think. Here's an alternative.

http://www.google.com/groups?threadm... g.google.com


--
Dick Kusleika
MVP - Excel
www.dicks-clicks.com
Post all replies to the newsgroup.

"Nigel" wrote in message
...
Hi All,
Can someone help me out please, I have an application that incorporates
some
web hyperlinks that I wish the user to access. At present if they
initiate
the link the browser opens and all is OK. If they do not shut this
instance
of the browser and switch back to Excel and click the link again, another
instances of the browser is created.

I had hoped that the use of the NewWindow parameter would prevent this (as
example that follows) but regrettably not.
Any ideas how I can test if a instance of the browser is open, if yes, use
it and do not create a new instance, otherwise open a new browser?

So far..... but not working!

Sub WebLink()
ActiveSheet.Hyperlinks.Add Anchor:=Range("A1"),
Address:="http://www.foo.com/"
Selection.Hyperlinks(1).Follow NewWindow:=False
End Sub




----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet
News==----
http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000
Newsgroups
---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption
=---