Letter recognition
Hi General,
Try:
'=============
Public Function IsFirstAlpha(sStr) As Boolean
Dim iAsc As Long
iAsc = Asc(Left(sStr, 1))
IsFirstAlpha = iAsc = 65 And iAsc <= 90 _
Or iAsc = 97 And iAsc <= 122
End Function
'<<=============
The function may be used from VBA:
'=============
Public Sub TestIt()
MsgBox IsFirstAlpha("ABC123")
End Sub
'<<=============
Alternatively, it may be used in Excel as a user
defined function (UDF):
=IsFirstAlpha(A1)
---
Regards,
Norman
"General" wrote in message
...
Is there a simple formula that can recognised the first character in a
cell
as being a letter as opposed to a number or symbol?
Thanks.
|