Many thanks all, for the suggestions.

Regards.

"Harald Staff" wrote in message
...
A brilliant approach, Tom. Why didn't I think of that ...<g

Best wishes Harald
Excel MVP
Followup to newsgroup only please

"Tom Ogilvy" skrev i melding
...
This appears to work as well:

Function ValCat(r As Range)
Dim sVal As String
ValCat = 4
sVal = r.Text
If sVal Like "[A-Z]" Then ValCat = 1
If sVal Like "[A-Z]#" Then ValCat = 3
If sVal Like "[A-Z]##" Then ValCat = 3
If sVal Like "#" Then ValCat = 2
If sVal Like "##" Then ValCat = 2
End Function

--
Regards,
Tom Ogilvy




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.518 / Virus Database: 316 - Release Date: 11/09/2003