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