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