Dim vInput as Long
vInput = pp80

sets vInput equal to zero since pp80 is an un-initialized, undeclared
variable. It is not the string "pp80"

Isnumeric("pp80")

will return false.

dim bAllText as Boolean
dim vInput as String, sStr as String
Dim sChar as String, msg as String
Dim i as Long
msg = "Enter Only Letters"
Do
vInput = InputBox(msg)
sStr = ucase(vInput)
if len(trim(sStr)) = 0 then exit sub
bAllText = True
for i = 1 to len(sStr)
sChar = mid(sStr,i,1)
if asc(sChar) = 48 and asc(sChar) <= 57 then
bAllText = False
exit for
end if
Next i
msg = "You entered at least one number, Letters only"
Loop while not bAllText

msgbox vInput

--
Regards,
Tom Ogilvy


"helmekki " wrote in message
...
ok, i did Dim the vInput as Long and
use your code , so it accepts only a number

i want it only to accept letters no numbers not even a word that
contains numbers (pp80)...........

i tried to set type:=2.........(text) , but...........

And also, the Isnumeric (vInput) when vInput = pp80 return true
i tried it many times only if vInput =whole number 0-9, but pp80
does contain letters and numbrs, so isnumeric return true

try it and see..............

any idea thank u in advance


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