pop up message depending on cell value

is it possible to have different messages automatically pop up depending on
certain cell values. e.g. if a1=6 a message would pop up with "correct", if
a1=7 a message would pop up with "incorrect", if a1=8 a message would pop up
with "try again" etc.

In VB Editor (ALT-F11) double click Sheet1, then paste

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Target = 6 Then
MsgBox "Correct"
ElseIf Target = 7 Then
MsgBox "Incorrect"
ElseIf Target = 8 Then
MsgBox "Try again"
End If
End If
End Sub


"John Davies" <[email protected]> schreef in bericht
news:[email protected]...
> is it possible to have different messages automatically pop up depending
> on
> certain cell values. e.g. if a1=6 a message would pop up with "correct",
> if
> a1=7 a message would pop up with "incorrect", if a1=8 a message would pop
> up
> with "try again" etc.