Sound

Hi John,

Take a look at the 'Alarm' function at JWalk:

http://www.j-walk.com/ss/excel/tips/tip87.htm

HTH

For wav files - In the sheet code


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("l5")) Is Nothing Then
Exit Sub
Else

If Cells(5, 12) = "John2" Then

Call PlaySound("D:\D Drive\GEORGE\Music\music\duel_a.wav", 0)

End If
End If
End Sub


and in a module

Declare Function PlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal wavFile As String, _
ByVal lNum As Long) As Long

Hi George,
Was just checking this out and wondering if you know how to have these same conditions ("John2" in L5 for instance) make it play some actual music (like an MP3 from the hard drive), instead of just one of the standard windows noises. I'm thinking the change would be in the code in the standard module (somewhere in the area of "winmm.dll" Alias _ "sndPlaySoundA") and the path in my sheet module code would be more like: "C:\Program Files\Music Folder\Song Name.MP3. Do you know of a way to do this also?

Thanks,
HalfAce

The wav file was an actual song from my hard drive, but the following works just as well

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.Text = "" Then
Exit Sub
Else
Cmd = "Start " & Chr(34) & ActiveCell.Text & Chr(34)
Shell Cmd
On Error Resume Next
End If
End Sub

If you put the full name and path in the cell it will play
eg C3 is C:\Program Files\Music Folder\Song Name.mp3

You will have to be a bit patient in waiting for your player to load up however.