In Excel I have www.ebay.com in cell K16.

Just below this cell I have a button (Macro) that when clicked, I want it to
open the Website.

Can someone show me how to activate the URL ?

Thanks In Advance.

Matt@Launchnet

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy that
you read my story. God Bless for everyones help.

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200708/1

Sure, I can help you with that!

Here are the steps to create a macro that will open the URL in cell K16 when you click the button:

1. First, make sure the Developer tab is visible in Excel. If it's not, go to File Options Customize Ribbon and check the box next to Developer in the right-hand column.
2. Click on the Developer tab and then click on the Visual Basic button to open the Visual Basic Editor.
3. In the Visual Basic Editor, click on Insert Module to create a new module.
4. In the module, paste the following code:
   
   
   Formula:

   Sub OpenURL()
    Dim myURL As String
    myURL = Range("K16").Value
    ActiveWorkbook.FollowHyperlink myURL
End Sub 

5. Save the macro and close the Visual Basic Editor.
6. Go back to your Excel worksheet and right-click on the button you created. Click on Assign Macro.
7. In the Assign Macro dialog box, select the OpenURL macro and click OK.

Now, when you click the button, the OpenURL macro will run and open the URL in cell K16 in your default web browser.

Copy this into a cell and click on it
http://www.ebay.com/


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Launchnet" <u20911@uwe wrote in message news:7780097f3d959@uwe...
In Excel I have www.ebay.com in cell K16.

Just below this cell I have a button (Macro) that when clicked, I want it
to
open the Website.

Can someone show me how to activate the URL ?

Thanks In Advance.

Matt@Launchnet

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy
that
you read my story. God Bless for everyones help.

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200708/1

The FollowHyperlink is nice and compact.

ActiveWorkbook.FollowHyperlink Address:="http://www.ebay.com",
NewWindow:=True

Add the "http://" part to your website string either in the macro or in the
cell. Excel complains without it.


"Launchnet" <u20911@uwe wrote in message news:7780097f3d959@uwe...
In Excel I have www.ebay.com in cell K16.

Just below this cell I have a button (Macro) that when clicked, I want it
to
open the Website.

Can someone show me how to activate the URL ?

Thanks In Advance.

Matt@Launchnet

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy
that
you read my story. God Bless for everyones help.

Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...tions/200708/1

Thanks . . .
The website name in the cell is changed from time to time so I need something
like the following:

ActiveWorkbook.FollowHyperlink Address:="http://(ActiveCell.Value), NewWindow:
=True"

I tried this, but since my programming ability is so week I don't know the
syntax.
Can you help with this?

Thanks
Matt@Launchnet

- wrote:
The FollowHyperlink is nice and compact.

ActiveWorkbook.FollowHyperlink Address:="http://www.ebay.com",
NewWindow:=True

Add the "http://" part to your website string either in the macro or in the
cell. Excel complains without it.

In Excel I have www.ebay.com in cell K16.

[quoted text clipped - 7 lines]

Matt@Launchnet

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy that
you read my story. God Bless for everyones help.

Message posted via http://www.officekb.com

Sub gotourlvariable()
ActiveWorkbook.FollowHyperlink Address:="http://" & ActiveCell.Value
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Launchnet via OfficeKB.com" <u20911@uwe wrote in message
news:779300ca6b421@uwe...
Thanks . . .
The website name in the cell is changed from time to time so I need
something
like the following:

ActiveWorkbook.FollowHyperlink Address:="http://(ActiveCell.Value),
NewWindow:
=True"

I tried this, but since my programming ability is so week I don't know the
syntax.
Can you help with this?

Thanks
Matt@Launchnet

- wrote:
The FollowHyperlink is nice and compact.

ActiveWorkbook.FollowHyperlink Address:="http://www.ebay.com",
NewWindow:=True

Add the "http://" part to your website string either in the macro or in
the
cell. Excel complains without it.

In Excel I have www.ebay.com in cell K16.

[quoted text clipped - 7 lines]

Matt@Launchnet

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy
that
you read my story. God Bless for everyones help.

Message posted via http://www.officekb.com

Dim sURL As String
sURL = "http://" & ActiveCell.Value
ActiveWorkbook.FollowHyperlink Address:=sURL, _
NewWindow:=True


"Launchnet via OfficeKB.com" <u20911@uwe wrote in message
news:779300ca6b421@uwe...
Thanks . . .
The website name in the cell is changed from time to time so I need
something
like the following:

ActiveWorkbook.FollowHyperlink Address:="http://(ActiveCell.Value),
NewWindow:
=True"

I tried this, but since my programming ability is so week I don't know the
syntax.
Can you help with this?

Thanks
Matt@Launchnet

- wrote:
The FollowHyperlink is nice and compact.

ActiveWorkbook.FollowHyperlink Address:="http://www.ebay.com",
NewWindow:=True

Add the "http://" part to your website string either in the macro or in
the
cell. Excel complains without it.

In Excel I have www.ebay.com in cell K16.

[quoted text clipped - 7 lines]

Matt@Launchnet

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy
that
you read my story. God Bless for everyones help.

Message posted via http://www.officekb.com

Thanks to Don & NO NAME
Both work. I used a little of both and it also now checks to see if
activecell is blank and if so gives a message.

Anain, thanks for the help. I really appreciate it.

Matt@Launchnet

- wrote:
Dim sURL As String
sURL = "http://" & ActiveCell.Value
ActiveWorkbook.FollowHyperlink Address:=sURL, _
NewWindow:=True

Thanks . . .
The website name in the cell is changed from time to time so I need
[quoted text clipped - 26 lines]

Matt@Launchnet

--
Please take a look at www.openoursite.com Click on: "Keywords" and then
Click on "Matt's Story" and if you are a man, you should be very happy that
you read my story. God Bless for everyones help.

Message posted via http://www.officekb.com