I need to create a "IsAlpha" function to check par

[TerryK]

I'm attempting to write a IsAlpha function that will check if a string variable contains only the characters a-z upper or lower case. Do I have to/can I loop through the alphabetic constant to check each character in turn with a MID or is there some form of search or find VBA keyword that is hidden in the help system and would be quicker?

Thansk in anticipation

Regards

Terry

 

[GlennUK]

Check each character by examining it's Asc value ( see the Asc function help ), which will be in the range 65 to 90 for uppercase, and in the range 97 to 122 for lowercase.

 

[Andrew Poulsom]

Look here:

http://www.mrexcel.com/board2/viewtopic.php?t=91446

 

[jindon]

Try

Function IsAlpha(txt) As Boolean
Dim myTxt
If TypeName(Application.Caller) = "Range" Then
     myTxt = txt.Text
Else
    myTxt = txt
End If
With CreateObject("VBScript.RegExp")
     .Pattern = "[^a-z]"
     .IgnoreCase = True
      IsAlpha = Not .test(myTxt)
End With
End Function