Can I tell a macro to open a hyperlink?

[steve case]

I have hyperlinks down column A If I click on any one of them, they work.

I would like a macro to select any one of those cells and open the web page.

Is this possible?

 

[jim may]

With an Active hyperlink in Cell A5
In your VBA Macro this will Open it...

Sub Foo()
Range("A5").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

 

[steve case]

With an Active hyperlink in Cell A5
In your VBA Macro this will Open it...

Sub Foo()
Range("A5").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

Jim, Thanks. I'm rusty at macros & VBA but I'll try your solution to verify that it works, than this:

Sub mymacro ()
(a bunch of stuff before arriving at the chosen active cell)
...
ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

If that doesn't work, I'll flail around a bit before I come back for more help (-:

 

[jim may]

Steve... Sounds like you are on the right TRACK!! Good Luck. But do write back, if there is a problem. Jim

 

[steve case]

Steve... Sounds like you are on the right TRACK!! Good Luck. But do write back, if there is a problem. Jim

I had asked this very question a few years and my earlier search didn't find it
but a new search did here it is Link so I will review that, Uh I hear the dinner
bell so it will wait until tomorrow. I got it done in 2010 I should manage to get
it done today.

Thanks for your help.

 

[steve case]

I got a nastygram from the Mods:

duplicate thread

This post has a time stamp of 1:06 and my earlier post was at 10:39.
After no response I paged down to see if it was there, it didn't show up,
I figured I forgot to press submit. I've been having trouble on other blogs
with posts being delayed or not showing up and sometimes I do forget to
press submit.

 

[steve case]

Steve... Sounds like you are on the right TRACK!! Good Luck. But do write back, if there is a problem. Jim

I picked this up after a month and tried to make it work. Here's my code:

Sub PasteSpecialTransposeValues()
'
' PasteSpecialTransposeValues Macro
' My Data
'
' Keyboard Shortcut: Ctrl+q
'
[Do Some Stuff]
    Sheets("Sheet5").Select
    ActiveCell.Offset(0, 12).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    ActiveCell.Offset(1, -12).Select
    Sheets("Sheet1").Select
[Do some more stuff]    
    Sheets("Sheet5").Select
    ActiveCell.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

It stops after selecting [Sheet5] and says:

Run Time Error 9:
Subscript out of range

The active cell should be one cell down from where it had been on [Sheet 5] where I want it to find the hyperlink and open it - in the same window by the way. If I click on the hyperlink manually which is the step I'm trying to remove, it opens a new window which is a pain because I have to stop and delete a series of new windows every so often.

Some background:

My data looks like this:
1234; 6955;N;000
1235; 6920;N;000
1236; 6854;N;000
1237; 6874;N;000
etc.

I do some stuff to it on [Sheet1] to get the following

6955
6920
6854
6874
etc.

Which gets a paste Special on [Page5]

I then want Excel to open the Next hyperlink listed in [ColumnA] [Sheet5] Where I manually [Ctrl"A"][Ctrl"C"][Alt Tab] back to Excel and activate my macro, [PasteSpecialTransposeValues] via an assigned button and then "Rinse & Repeat" over 1,000 times.

So the fewer keystrokes the better.

Oh, I have Excel 2007