Use InPut in Hyperlink
 

Trying to put InPut answer into hyperlink

Dim MyInput
MyInput=InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=MyInput

Use InPut in Hyperlink
 

If it should look like http://finance.yahoo.com/q?s=abc

and MyInput contains abc then

Dim MyInput
MyInput=InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=" & MyInput



--
Regards,
Tom Ogilvy


"gj" wrote in message
oups.com...
Trying to put InPut answer into hyperlink

Dim MyInput
MyInput=InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=MyInput

Use InPut in Hyperlink
 

gj wrote:
Trying to put InPut answer into hyperlink

Dim MyInput
MyInput=InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=MyInput

don't work Tom
gj

Use InPut in Hyperlink
 

ISub AAA()
Dim MyInput
MyInput = InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=" & MyInput

End Sub

Worked fine for me. When I entered a valid symbol, it opened that as a web
page.

--
Regards,
Tom Ogilvy






"gj" wrote in message
oups.com...

gj wrote:
Trying to put InPut answer into hyperlink

Dim MyInput
MyInput=InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=MyInput

don't work Tom
gj

Use InPut in Hyperlink
 

I think I'd try it once more.

If it doesn't work, post your code and what you typed into the inputbox.

gj wrote:

gj wrote:
Trying to put InPut answer into hyperlink

Dim MyInput
MyInput=InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=MyInput

don't work Tom
gj

--

Dave Peterson

Use InPut in Hyperlink
 

Try:
MyInput = "http://finance.yahoo.com/q?s=" & InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink Address:=MyInput
--
Steve Franks


"Tom Ogilvy" wrote:

ISub AAA()
Dim MyInput
MyInput = InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=" & MyInput

End Sub

Worked fine for me. When I entered a valid symbol, it opened that as a web
page.

--
Regards,
Tom Ogilvy






"gj" wrote in message
oups.com...

gj wrote:
Trying to put InPut answer into hyperlink

Dim MyInput
MyInput=InputBox("Enter Stock Symbol")
ActiveWorkbook.FollowHyperlink _
Address:="http://finance.yahoo.com/q?s=MyInput

don't work Tom
gj