Detect whether the first character in a selection is alphanumeric
Article contributed by Bill Coan
If Selection.Characters(1) Like "[a-zA-Z0-9]"
Then MsgBox "Alphanumeric"
If Selection.Characters(1) Like
"[!a-zA-Z0-9]"
Then MsgBox "Nonalphanumeric"