View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.misc
[email protected] infodex@mindspring.com is offline
external usenet poster
 
Posts: 30
Default Activating hyperlinks

On Tue, 17 Jun 2014 20:59:46 +0200, Claus Busch
wrote:

hi,

Am Tue, 17 Jun 2014 14:40:54 -0400 schrieb :

In Excel 2010, I have a range of cells into which I have copied and
pasted URLs. They all pasted as text and I want them to be active
hyperlinks.


try (if your strings are not in column A then modify the code):


Sorry, I'm not writing a macro, I'm just looking for a way to click my
way to my goal.


Sub ActivateHyperlinks()
Dim rngC As Range
Dim LRow As Long

With ActiveSheet
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Each rngC In .Range("A1:A" & LRow)
.Hyperlinks.Add _
anchor:=rngC, _
Address:=IIf(Left(rngC.Text, 4) < "http", _
"http://" & rngC.Text, rngC.Text)
Next
End With
End Sub


Regards
Claus B.