Activating Hyperlinks via VBA

[thomassharp]

Hi, I have 2 questions. First, is it possible to use the script mentioned here: http://www.mrexcel.com/forum/excel-...hyperlinks-via-visual-basic-applications.html

Sub Hyperlink()
Shell "explorer.exe " & Range("J2").Text
End Sub

To activate a cell range? I.e could it open several links at once in the browser?

Secondly, is there a simply way to automate the F2/return key stroke to activate a cell so the Hyperlink becomes active. I've tried lots of different things but none of them seem to just automate the manual key stroke.

Thanks very much for any help you can give!

:wink:

 

[Andrew Poulsom]

I don't understand your first question, but here's some VBA code to convert a cell to a hyperlink:

http://www.mrexcel.com/forum/excel-...ate-hyperlinks-visual-basic-applications.html

 

[thomassharp]

HI thanks for your reply, I mean could it open several cells at once, as opposed to just one...

 

[Andrew Poulsom]

Have you tried adding more similar lines to your code?

 

[thomassharp]

It worked, thanks a lot. Out of interest would it be the correct way to do it for many cells?

 

[Andrew Poulsom]

I don't know another way, sorry.

 

[thomassharp]

No worries, helped me a lot anyway

 

[thomassharp]

HI again, do you know why the code selects column B in my worksheet? What part would I have to modify to change the range of cells. The normal select codes I use won't run within this code...Thx

Sub Test()
Dim LastRow As Long, i As Long LastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row For i = 2 To LastRow With Cells(i, 2) If .Value <> "" Then ActiveSheet.Hyperlinks.Add Anchor:=.Cells(1, 1), Address:=.Value End If End With Next iEnd Sub

 

[Andrew Poulsom]

The 2 here means column 2 (B):

With Cells(i, 2)

 

[thomassharp]

Great, thx