Try this in the worksheet VBA editor. If the value of A5 is greater than 50
you get a beep.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim frequency As Long
Dim duration As Long
If Target < Range("A5") Then Exit Sub
If Target.Value 50 Then
frequency = 4160
duration = 1500
Call Beep(frequency, duration)
End If
End Sub

HTH
Regards,
Howard

"Annell" wrote in message
...
I would like to set an audible alarm in Excel based on a cell value.