Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Row = 2 And Target.Column = 1 Then
If Target.Value = "KP" Then
MsgBox ("This is correct!")
End If
End If
End Sub
you can put this in the ThisWorkbook code.
It will trigger when the contents of cell A2 change
Code:Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Row = 2 And Target.Column = 1 Then If Target.Value = "KP" Then MsgBox ("This is correct!") End If End If End Sub