Don,

BTW, what is an API function?

Jack.

"Don Guillett" schreef in bericht
...
Is your speaker card turned on? Or you could use this for your internal
speaker.

A search on this
http://makeashorterlink.com/?D24E42426
showed among lots of things this:


" In VB, the Beep function calls the Windows Exclamation sound, so if you
have a sound card driver installed, the sound will be emitted by the
sound card.


" If your app is being run under WinNT4, Win2000, or WinXP, you can use
the
Beep API function to play a sound using the internal speaker. Win9x does
not support this (like VB's Beep statement, the Beep API function under
Win9x only plays the Default Sound .wav file).


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


Sub BeepMe()


Dim frequency As Long
Dim duration As Long


frequency = 1600
duration = 500


Call Beep(frequency, duration)


End Sub


--
HTH. Best wishes Harald



--
Don Guillett
SalesAid Software

"Jack Sons" wrote in message
...
Hi all,

Suddenly my Excel (2K) beep won't work anymore, neither in excisting code
nor in new code. For instance the code below does nothing.

Sub Macro6()
Beep
Beep
Beep
End Sub

All other Windows (XP SP) sounds still work, but I'm not sure of Word
because as far as I can remember I don't do things in Word that generate
sound. I tried the macro below and there was no sound.

Sub test_sound()
Beep
End Sub

Where should I look for what is wrong? Your help will be appreciated.

Jack Sons
The Netherlands