Pieter Jan,
Try pasting this code at the top of your sheet's code:

Option Explicit
Private intCounter As Integer

Private Sub Worksheet_Calculate()
On Error Resume Next
Static varVal As Variant
With Range("A5")
If .Value = 100 And (.Value < varVal Or intCounter = 0) Then
ThisWorkbook.FollowHyperlink "C:\MusicFragment.mp3", , True
varVal = .Value
End If
End With
varVal = Range("A5").Value
intCounter = intCounter + 1
End Sub

You'll just need to change the name and path of the music file
HTH,
Dave

"Pieter-Jan" wrote:


Dave,

This is looking good to start with. Only one problem, the music is
playing when I type "100" in "A5", but not when 100 is calculated in
"A5". Can you solve this problem, or do I make a mistake?

Regards,
Pieter-Jan


--
Pieter-Jan
------------------------------------------------------------------------
Pieter-Jan's Profile: http://www.excelforum.com/member.php...o&userid=27954
View this thread: http://www.excelforum.com/showthread...hreadid=474567