Macro to create hyperlink

  • Thread starter Thread starter JoeP
  • Start date Start date
J

JoeP

I have cells in an Excel 2003 spreadsheet that contains the path to a file. I
would like to create a macro that takes the content of an active cell (that
has a path to a file) and convert it to a hypelink to that file.
Any help would be appreciated.
 
Hello,

this works on the activecell

Dim MyHyper As String
MyHyper = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
MyHyper, TextToDisplay:=MyHyper

or if you wanted to, you could specify the cell by

Dim MyHyper As String
range("A1").select
MyHyper = ActiveCell.Value
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
MyHyper, TextToDisplay:=MyHyper

hope that helps.
 
Hi,

The 'macro' to do this is a one-liner. If you have lots of these then its
posible to loop through them

Sub addlinks()
ActiveSheet.Hyperlinks.Add Anchor:=Selection, _
Address:=Selection.Text
End Sub


Mike
 
Back
Top