Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Sub Worksheet_Calculate()
Static oldval As Variant, oldval1 As Variant
If Range("J2").Value <> oldval Then
oldval = Range("J2").Value
PlayWavFile "c:\trimmed.wav", False
End If
If Range("J4").Value <> oldval1 Then
oldval1 = Range("J4").Value
PlayWavFile "c:\another.wav", False
End If
End Sub
Sub PlayWavFile(WavFileName As String, Wait As Boolean)
If Dir(WavFileName) = "" Then Exit Sub ' no file to play
If Wait Then ' play sound before running any more code
sndPlaySound WavFileName, 0
Else ' play sound while code is running
sndPlaySound WavFileName, 1
End If
End Sub
Bookmarks