Private Sub Worksheet_Change(ByVal Target As Range) Dim rg As Range, targ As Range Set targ = [A12] On Error Resume Next Set rg = targ.Precedents Set targ = Union(targ, rg) On Error GoTo 0 If Not Intersect(Target, targ) Is Nothing Then MsgBox "Cell A12 has changed" End Sub
Is this value of 12 in any particular cell?
You can use the Worksheet_Change event for this. Assuming the cell to be A1
Open in new window