Kontiki

Are you OK with a Macro?

Sub MakeHyperlinks()
'David McRitchie.........originator
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 7 Dec 2004 11:40:55 -0800, (kontiki) wrote:

Goodday,


I have an excel file listing more then two thousand paintings and
their artist.

I now want to hyperlink all cells from column A to jpeg pictures of
these paintings. I know how to do this, but it takes such a long time
to hyperlink
every cell individually.

Is there no way to get this done in a kind of batch like operation, or
is there another program where I can copy my excel database and get
the job done more
easily ?

Any reaction is very much appreciated.

Best regards,


Kontiki