need an audible alarm when real-time securities data reaches certain trigger points

I tried but was not successful in translating the examples provided to my particular problem. I am trying to start an audible alert when the value in cell W9 exceeds a value of 1770. How can I fix the code below?

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 23 Then
If Target.Row = 9 Then
ThisRow = Target.Row
If Target.Value > 1770 Then
Public Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Else
Const SND_NODEFAULT = &H2
End If
End If
End Sub