Audible beep from cell value

[Stevie p]

Hi,
Is it possible that when a workbook opens and worksheet "Main" cell ("G2") value is greater than zero that you could have an aubible warning Beep for example......? Regards Stevie p.

 

[machopicho]

In VBA module:

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

Const SND_SYNC = &H0 
Const SND_ASYNC = &H1 
Const SND_FILENAME = &H20000 

Public Function Allarm() 
WAVFile = "c:\windows\media\tada.wav" 
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME) 
End Function

In one cell:

=IF([I]G2>0,[/I]Allarm(),"")

 

[Ruddles]

Another approach:-

Private Sub Workbook_Open()
  If Sheets("Main").Range("G2") > 0 Then Beep
End Sub

Considerations: will the sound on the PC be enabled & turned up, will the beep be audible at all, and will people know what the beep signifies?