Надеюсь я понятный пример привел.

	Post Attachments
	Primer.rar (8 views, 3,63 KB)

Private Sub Worksheet_Change(ByVal Target As Range)

  If InStr(Target.Address, "$A$2") <> 0 Then MsgBox Target.Value

End Sub