Am looking for a simple way to make Excel play a midi or wav file, so that
spreadsheet can make reasuring sounds, or helpful comments at appropriate
stages. Has anyone tried this?

You can get some information at John Walkenbach's site:

http://j-walk.com/ss/excel/tips/tip87.htm
Playing a Sound Based on a Cell's Value

http://j-walk.com/ss/excel/tips/tip59.htm
Playing Sound From Excel


If you need information on events in excel, see Chip Pearson's page on this

http://www.cpearson.com/excel/events.htm

--
Regards,
Tom Ogilvy

"Hotbird" wrote in message
...
Am looking for a simple way to make Excel play a midi or wav file, so that
spreadsheet can make reasuring sounds, or helpful comments at appropriate
stages. Has anyone tried this?

Many thanks Tom. Once again you come to my rescue. This is where your
suggestion led:

Option Explicit

'Windows API function declaration

Dim WAVFile As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
Function Alarm1(Cell, Condition)

On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\sound1.wav" 'Edit this statement
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm1 = True
Exit Function
End If
ErrHandler:
Alarm1 = False

End Function
Function Alarm2(Cell, Condition)

On Error GoTo ErrHandler
If Evaluate(Cell.Value & Condition) Then
WAVFile = ThisWorkbook.Path & "\sound2.wav" 'Edit this statement
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
Alarm2 = True
Exit Function
End If
ErrHandler:
Alarm2 = False

End Function

Regards,
Tom Ogilvy

"Hotbird" wrote in message
...
Am looking for a simple way to make Excel play a midi or wav file, so
that
spreadsheet can make reasuring sounds, or helpful comments at
appropriate
stages. Has anyone tried this?