Hi Jim,

Jim Zeeb wrote:
I want to display a web page using info from a cell when that cell is
double clicked.

For example, I have a cell with a stock symbol in it ( i.e. MSFT)
When I double-click the cell, I want to start IE with the URL:
http://finance.yahoo.com/q?s=MSFT

Something like this may work for you:

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Dim sTicker As String
Dim objIE As Object

If Target.Cells.Count = 1 Then
sTicker = CStr(Target.Value)
If Len(sTicker) = 4 And Not IsNumeric(sTicker) Then
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Navigate "http://finance.yahoo.com/q?s=" _
& CStr(sTicker)
.Visible = True
End With
Set objIE = Nothing
End If
End If
End Sub

This code should be placed in the worksheet module (right-click sheet tab
and select View Code).

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]

well... you CAN do it complicated, but why dont you use hyperlinks?

with the =hyperlink() worksheetfunction you can use cell references
to build the address..



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Jake Marx" wrote:

Hi Jim,

Jim Zeeb wrote:
I want to display a web page using info from a cell when that cell is
double clicked.

For example, I have a cell with a stock symbol in it ( i.e. MSFT)
When I double-click the cell, I want to start IE with the URL:
http://finance.yahoo.com/q?s=MSFT

Something like this may work for you:

Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
Dim sTicker As String
Dim objIE As Object

If Target.Cells.Count = 1 Then
sTicker = CStr(Target.Value)
If Len(sTicker) = 4 And Not IsNumeric(sTicker) Then
Set objIE = CreateObject
("InternetExplorer.Application")
With objIE
.Navigate "http://finance.yahoo.com/q?s=" _
& CStr(sTicker)
.Visible = True
End With
Set objIE = Nothing
End If
End If
End Sub

This code should be placed in the worksheet module (right-click sheet
tab
and select View Code).

keepITcool wrote:
well... you CAN do it complicated, but why dont you use hyperlinks?

with the =hyperlink() worksheetfunction you can use cell references
to build the address..

Typically, I would suggest a hyperlink, but the user wanted this to happen
on the double-click of a cell. I probably should have used FollowHyperlink
instead of automating IE, however.

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]