You could use the msgbox display types to have a different look:


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Value = 1 Then MsgBox "Incorrect", vbExclamation ' Warning
Look
Range("A1").Activate
If Range("A1").Value = 2 Then MsgBox "Correct", vbInformation ' Question
Mark
Range("A1").Activate
End Sub



Corey....
"John Davies" wrote in message
...
Is it possible to have different messages pop up, e.g. if cell a1 = 1, a
message will pop p showing "Correct" with red bold text, if cell a1 = 2,
message popus will show "Incorrect" with blue bold text etc.

Thanks in advance of any help.
John