can u play sound from vba? 1

[nurun]

Can anyone please tell me how I can make a wav file play from vba code given a condition.

 

[LSTAN]

By using the PlaySound API function.

Here is how, this piece of code was taken from John Walkenbach website :

http://www.j-walk.com

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

Function Alarm(Cell, Condition)    
Dim WAVFile As String    
Const SND_ASYNC = &H1    
Const SND_FILENAME = &H20000    
On Error GoTo ErrHandler    
If Evaluate(Cell.Value & Condition) Then        
WAVFile = ThisWorkbook.Path & "\sound.wav" 'Edit this statement        
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)        
Alarm = True        
Exit Function    
End If
ErrHandler:    
Alarm = False
End Function

LSTAN