Solved: Checking to see if a cell contains a Number or Letter

[Saladsamurai]

Alrighty-then :)

Let's say that I want to write, in VBA, a code that will check Cell(i,j)
and if it contains a letter (any letter) it will MsgBox "Letter" and if it contains a Number (any number) it will do nothing.

How do I specify a letter in general? Is there a Chr() code or something?

Thanks!

[MaximS]

try that:


Sub Chr_Check()

Dim x As String

x = Asc(Cells(1, 1).Value)
Select Case Asc(x)
Case 65 To 90
Err = MsgBox(Cells(1, 1).Address & " is a Letter", vbOKOnly, "Letter")
Case 67 To 122
Err = MsgBox(Cells(1, 1).Address & " is a Letter", vbOKOnly, "Letter")
End Select
End Sub

[mdmackillop]

Couldn't get that to work. My adaption of Maxim's code.
Try

Option Explicit
Sub Chr_Check()

Dim x As Long

x = Asc(Cells(1, 1).Value)
Select Case x
Case 65 To 90
Err = MsgBox(Cells(1, 1).Address & " is a Letter", vbOKOnly, "Letter")
Case 67 To 122
Err = MsgBox(Cells(1, 1).Address & " is a Letter", vbOKOnly, "Letter")
Case Else
If IsNumeric(Cells(1, 1)) Then
MsgBox "Number"
Else
MsgBox "Symbol"
End If
End Select
End Sub

[MaximS]

ehh my mistake double ASC()

[Saladsamurai]

Great!! Thanks guys! :hi: