This is for every cell in a range but you can adapt it!


Code:
--------------------
Dim Rng As Range, MyCell As Range
Set Rng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
For Each MyCell In Rng
If MyCell < "" Then
MyCell.Hyperlinks.Add Anchor:=Range(MyCell.Address), Address:=MyCell.Text, TextToDisplay:=MyCell.Text
End If
Next MyCell
--------------------


JoeP;478050 Wrote:
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.


--
Simon Lloyd

Regards,
Simon Lloyd
'Microsoft Office Help' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=131871