=ALS.FOUT(HYPERLINK(VERT.ZOEKEN(B5;gegevens!C:F;4;0));"")

Hallo,
Ik wil nog eens terugkomen op mijn vraag.
Omdat bij aanklikken van die hyperlink er steeds een beveiligingswaarschuwing komt (zie mijn vraag onder de rubriek windows algemeen), heb ik een andere oplossing gevonden.
Hier heb ik echter ook een probleem.
Als er een cell geactiveerd word met een verschillend gegeven, krijg ik de foutmelding van visual basic (runtime error 1004).
Kan er in de code wat bijgevoegd worden zodat ik de kans heb terug te keren zonder in de module te belanden.
Uitleg over de werking staat in bijgevoegd bestandje.
Firmin

Redhead,
Heb 2 mogelijkheden :
1.uw voorstel met rechtsklik werkt zonder foutmelding.
2.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
ActiveSheet.OLEObjects.Add(Filename:= _
        ActiveCell, Link:=False, DisplayAsIcon:= _
        False).Select
    Selection.ShapeRange.IncrementLeft 242.25
    Selection.ShapeRange.IncrementTop -42.75
    Selection.ShapeRange.ScaleHeight 1.63, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleWidth 1.55, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 15
    Selection.ShapeRange.Fill.BackColor.SchemeColor = 12
    Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 1
    Selection.Verb Verb:=xlPrimary

End Sub
Dat is de code die ik ook kan gebruiken, voorzover er een cel met verwijzing naar het mp3 bestand geselecteerd is, speelt deze direct af.
Alvast bedankt voor uw inbreng.
Firmin