How do I add sound alerts to Excel spreadsheets?

[Guest]

I want to alert users fo input errors using a barcode scanner to enter
container numbers into a spreadsheet. Entering non-matching numbers (two
different barcodes) need to envoke an "alert" sound.

 

[Guest]

Here is some code for playing a beep or a wave file...

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

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal
dwDuration _
As Long) As Long


Private Sub PlayMySound()
PlayWavFile "C:\Windows\Media\Microsoft Office 2000\Chimes.wav"
End Sub

Public Function PlayWavFile(WavFile As String) As String
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
PlaySound WavFile, 0, SND_ASYNC Or SND_FILENAME
PlayWavFile = ""
End Function


Sub Beep1()
Dim num As Single
Dim num1 As Long
Dim numLoops As Single

num = 10
NumSeconds = 4 '<== duration
numLoops = (NumSeconds * num * 2) / 2
If numLoops < 1 Then
numLoops = 1
End If
num1 = 1000 / (num * 2)

For i = 1 To numLoops
'DoEvents
Beep 500, num1
'DoEvents
Beep 10000, num1
'DoEvents
Next
End Sub

 

[Guest]

Jim is there a way to accomplish the same in Excel 2003. The play commands
have been disabled.