Try some code like the following:

Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Sub PlayChimes()
Dim N As Long
For N = 1 To 5
sndPlaySound32 "chimes", 0
Next N
End Sub


Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)


On Thu, 6 Nov 2008 07:20:01 -0800, iashorty
wrote:

Here is a macro written by someone before me:
Sub ding1()
'
' Ding Macro
MultiBeep 5
Message
End Sub

Sub MultiBeep(numbeeps)
For counter = 1 To numbeeps
Beep
Next counter
End Sub

Sub Message()
MsgBox "Sorry, I have not been assigned yet!"
End Sub

The macro goes through the process but the dings are not audible. I was
instructed to make this work, but I can't find any information on Beeps or
Dings.