Hücrelerdeki değer aynı ise

[Tarikkk_]

Merhabalar. Aynı satır B C D Sütunlarındaki değer aynı ise Uyarı Almak istiyorum bunun için aşağıdaki gibi bir makrom var herşey normal çalışıyor sıkıntı yaşadığım tek şey
If Cells(Satır, "B") = Cells(Satır, "C") = Cells(Satır, "D") Then B,C,D sütunlarındaki değerin eşit olup olmadığını algılayamıyor. yanlışı nerede yapıyorum anlamadım yardımlarınızı bekliyorum şimdiden teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Sonsatır = ActiveSheet.Cells(Rows.Count, "B").End(3).Row
    
    For Satır = 4 To Sonsatır
        If Cells(Satır, "B") <> "" And Cells(Satır, "C") <> "" And Cells(Satır, "D") <> "" Then
            If Cells(Satır, "B") = Cells(Satır, "C") = Cells(Satır, "D") Then
                MsgBox (Satır & ". Satır B ,C ,D Sütunlarındaki Değer Aynı")
            End If
        End If
    Next Satır
    
    Application.EnableEvents = True
End Sub

 

[ÖmerFaruk]

If Cells(Satır, "B") = Cells(Satır, "C") And Cells(Satır, "B")= Cells(Satır, "D") Then