Limiting InputBox to Letters only

[firefiend]

Okay, I have one last big issues for this project.

I have a InputBox in which I want to allow only Letters, NO NUMBERS.

Here's the code I have:

On Error GoTo ErrHandler:
Dim colLetter As String
colLetter = InputBox(Prompt:="Please enter product option." & _
    vbCr & "This function is NOT case sensitive.", _
    Title:="SELECT PRODUCT OPTION", Default:="<Column Letter>")
        If colLetter = "<Product Option>" Or _
            colLetter = vbNullString Or _
     **    colLetter = Number Then ** THIS IS THE CODE I NEED TO FIX
            GoTo ErrHandler:
            Else: GoTo nextQuestion:
        End If

But I'm not sure to make this distinction and my searches for the proper syntax have come up empty.

Any suggestions?

 

[ageren]

On Error GoTo ErrHandler:
Dim colLetter As String
Dim a as string
a = IsNumber(colLetter)
colLetter = InputBox(Prompt:="Please enter product option." & _
vbCr & "This function is NOT case sensitive.", _
Title:="SELECT PRODUCT OPTION", Default:="<Column Letter>")
If colLetter = "<Product Option>" Or _
colLetter = vbNullString Or _
a = True Then
GoTo ErrHandler:
Else: GoTo nextQuestion:
End If

 

[firefiend]

That looks great ageren. I've seen the IsNumber function before but never used it.

I edited my code and am receiving a undefined sub or function error on IsNumber.

Any ideas on what is causing that?


EDIT: hmmm, I've changed the line to use IsNumeric instead of IsNumber... is this an identical function? Can anyone foresee any potential problems with this change?

and oh yeah, thanks everyone for the help. This is an awesome site and I'm having a blast chatting with you all while I learn VBA!

 

[ageren]

please try like that; it is going to work now..

On Error GoTo ErrHandler:
Dim colLetter As String
Dim a as string
colLetter = InputBox(Prompt:="Please enter product option." & _
vbCr & "This function is NOT case sensitive.", _
Title:="SELECT PRODUCT OPTION", Default:="")
a = IsNumeric(colLetter)
If colLetter = "" Or _
colLetter = vbNullString Or _
a = True Then
GoTo ErrHandler:
Else: GoTo nextQuestion:
End If

 

[ageren]

..............