Kolonneindhold som hyperlink

Prøv med denne makro:

------------------------
Public Sub HyperHyper()
    For Each c In Selection
        Worksheets(1).Hyperlinks.Add _
                            Anchor:=Range(c.Address), _
                            Address:="mailto:" + c.Value
    Next c
End Sub
------------------------

Du skal indsætte koden i arkets kodemodul.
1. Tryk ALT + F11.
2. Dobbeltklik på ThisWorkbook.
3. Copy/Paste koden ind.
4. Gem arket.

For at bruge makroen skal du
1. Markere området med e-mail addresser
2. Tryk ALT + F8
3. Kør makroen (HyperHyper)

Rettelse:

----------------
Public Sub HyperHyper()
    For Each c In Selection
        ActiveSheet.Hyperlinks.Add _
                            Anchor:=Range(c.Address), _
                            Address:="mailto:" + c.Value
    Next c
End Sub
----------------

tak for hjælpen - den virkede bare med det samme :-)