Beep should work (bit naff, but works). Are you sure you don't have sound
muted?

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Carlton Patterson" wrote in message
...
Hi all,

I don't know if I should be posting on Google groups or here, so forgive
me if I'm not following protocol.

Anyway, can someone show me how to add/play a sound to the following:

Private Sub Worksheet_Calculate()
If Range("I1").Value 0 Then
Beep
'or msgbox
'or play sound
'or send email
'or whatever
End If
End Sub

You'll notice that there is a "Beep" in the program but it doesn't work.


Cheers

Carlton

*** Sent via Developersdex http://www.developersdex.com ***