Target.Value - Must be a number

Hi all,

I'm using this and it works as expected, as long as you enter a number.
However not all users are smart enough to follow those instructions, and
they enter text which causes the code to run.

What direction do i need to go so that text in A5 will not activate the code?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" And Target.Value > 20 Then
MsgBox ("Test code 1")
Else
MsgBox ("Test code 2")
End If
End Sub

Modified as:

Private Sub Worksheet_Change(ByVal Target As Range)
If Isnumeric(Target.value) Then
If Target.Address = "$A$5" And Target.Value > 20 Then
MsgBox ("Test code 1")
Else
MsgBox ("Test code 2")
End If
End if
End Sub

Originally Posted by Myles

Modified as:

Private Sub Worksheet_Change(ByVal Target As Range)
If Isnumeric(Target.value) Then
If Target.Address = "$A$5" And Target.Value > 20 Then
MsgBox ("Test code 1")
Else
MsgBox ("Test code 2")
End If
End if
End Sub

Hi Myles,

Thank you. That works great. Now they won't mess it up.

Thx again,