PATRICK

You wrote this

The code doesn't need to be complex. First test that its
a number, then count the digits.


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$J$7" Then '[A]

If IsNumeric(Target.Value) Then '[b]

If Len(Target.Text) = 3 Then '[C]

Range("C11").Select
Exit Sub

End If '[C]

End If '[b]

MsgBox "Enter a three digit number please"

End If '[A]

End Sub



QUESTION:
How do you select a group of cells

--
Message posted from http://www.ExcelForum.com