Hi

my problem is when placing a number begining wiht a letter (p80) thi
code does recognise it as a number so the macro take it as it is, bu
this couses a problem to me becasue i do want the macro to discard th
number if it contains some numbers and some letters.
however, the code works fins when i put only a number (Ex: 800)

sub test()
Dim vInput As String
Dim myRow As Range

vInput = InputBox("Please Write Your Item", "Add New Item")
If IsNumeric(vInput) Then
MsgBox ("Please Enter An Item")
vInput = InputBox("Please Write Your Item", "Add New Item")
End If
End sub

yours hesha

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