Change list to hyperlinks
Julia
Using a David McRitchie macro.
Sub MakeHyperlinks()
'David McRitchie
Dim Cell As Range
For Each Cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
With Worksheets(1)
.Hyperlinks.Add Anchor:=Cell, _
Address:=Cell.Value, _
ScreenTip:=Cell.Value, _
TextToDisplay:=Cell.Value
End With
Next Cell
End Sub
Gord Dibben Excel MVP
On Mon, 30 Aug 2004 13:23:02 -0700, "Julia Chromicz"
wrote:
I have several long lists in Excel of network files. Each cell includes the
full path to the file. I need to change the list to hyperlinks using the
"=hyperlink" function.
For example...
current value of cell C13 H:\Directory\File.xls
desired value of cell C13 =hyperlink("H:\Directory\File.xls")
Any ideas?
Thanks!
Julia
|