Running an Excel macro on cell change in a range of cells, the cell contains a formulae

Phil-365 You could do it like so:

Option Explicit

Dim PrevData As Variant

Private Sub Worksheet_Calculate()
    Dim Rw As Long
    Dim curData As Variant
    If IsEmpty(PrevData) Then
        PrevData = Range("D2:D10").Value2
    End If
    curData = Range("D2:D10").Value2
    For Rw = LBound(curData, 1) To UBound(curData, 1)
        If curData(Rw, 1) <> PrevData(Rw, 1) Then
            MsgBox "Row " & Rw + 1 & " has changed!"
        End If
    Next
    PrevData = Range("D2:D10").Value2
End Sub