Ding sound for Cells with Equal Values

[geepeeone]

'Hi,

'I was wondering how to apply this code to include specifically these ranges in pairs: H50 & H51, H102 & H103, H154 & H155, and H206 & H207.

'tried to cut and paste the code from Private Sub to End Sub changing only
the Ranges (see above), but it didn't work.

'I am totally new to VBA

Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias _
    "sndPlaySoundA" (ByVal lpszSoundName As String, _
    ByVal uFlags As Long) As Long
 
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Static OnlyOnce As Boolean
 
    If OnlyOnce Then Exit Sub
    If Range("H51").Value = "" Or Range("H51").Value = 0 Then Exit Sub
    If Range("H50").Value = Range("H51") Then
        sndPlaySound32 "ding", 1&
        OnlyOnce = True
    End If
 
End Sub