Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [B]Range("B2")[/B]) Is Nothing Then
MyMacro
End If
End SUb
Private Sub Worksheet_Change(ByVal Target As Range)
If HasFormula(Target) Then
MyMacro
End If
End Sub
Private Sub WorkSheet_Change(byVal Target as Range)
If Target.hasFormula Then
Applications. EnableEvents = False
MsgBox. "You may not change this cell"
Application.Undo
Application.EnableEvents = True
End If
End Sub