Step1:- Right click on sheet1 tab and click on View code
Step2:- Paste below code

Code:
	Private Sub Worksheet_Change(ByVal Target As Range)
	
	    If Target.Address(0, 0) = "A2" Then
	        MsgBox "Text changed.", vbInformation, "Text changed message..."
	    End If
	
	End Sub