добрый День  
 
подскажите плиз как можно запустить звук при совпадении условий в ячейке  
 
Sub звук()  
? if A1=5 Then Open "c:\phone.wav" ?  
Application.OnTime Now + TimeValue("00:15:00"), "звук"  
End Sub