View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default 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.