Allen
I try to keep it simple, is their no way you can just use Data Validation?
It has the error handler included. It will write the code for you.

Good Luck

--
William<"M"
Using 2007


"allan" wrote:

HI, I want to display a warning message in column J whenever the number
exceeds 2.

At the moment I got something like this....

Dim ErrorMSG As String

If Application.CountIf(Worksheets("Sheet1").Columns(" J"), "2") Then

ErrorMSG = MsgBox("Warning.")

End If

Do i need to put this in the public sub function()...I am not too sure about
the full code .

thanks