Hi Everyone,

Very Newbie here.. ;)

I was searching board and found bottom code and it works on ONE cell.

Q1) But I want to have Sound Alarm for Mutiple cells:

When
A1=80
A2=90
B2=80
R5=100
....etc..

Q2) And when from Cell B1 to B17 and if any cell value is = 100

Q3) How can I make sound to run about 10 seconds?

Thank you in advance....

Option Explicit
Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Private Sub Worksheet_Calculate()
If Me.Range("A1").Value 10 Then
sndPlaySound32 "chimes.wav", 0
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target.Value 10 Then
sndPlaySound32 "chimes.wav", 0
End If
End If
End Sub