View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Gord Dibben Gord Dibben is offline
external usenet poster
 
Posts: 22,906
Default 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