IsAplha

Function IsAlpha(str As String) As Boolean
'Determines whether or not a string has only letters.

Dim a As Integer, s As String * 1
For a = 1 To Len(str)
s = UCase(Mid(str, a, 1))
If (s < "A" Or s > "Z") Then
IsAlpha = False
Exit Function
End If
Next
IsAlpha = True
End Function