Ding sound for Cells with Equal Values

'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

[deleted - non-Mod acting as a Mod - bad...]

geepeeone,

Welcome to the forum. You need to read the forum rules below and then edit your post to include code tags plus amend you're title

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Many thanks

VBA Noob

Untested but perhaps:

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)
Dim lngRow As Long
Static onlyonce As Boolean
If onlyonce Then Exit Sub
Rem Pairs: H50 & H51, H102 & H103, H154 & H155, and H206 & H207
For lngRow = 50 To 206 Step 52
    If onlyonce Then Exit Sub
    If Cells(lngRow, "H") <> "" And Cells(lngRow, "H") <> 0 Then
        If Cells(lngRow, "H") = Cells(lngRow + 1, "H") Then
            sndPlaySound32 "ding", 1&
            onlyonce = True
        End If
    End If
Next lngRow
End Sub