How to get the Right function to return a string that has UPPERCASE letters only

[adj]

How do I format the return string for the Right function to find UPPERCASE letters? For example, I tried the following, [A-Z], which didn't work:

SelectedText = Selection.Text


Right(SelectedText, 2) = "[A-Z][A-Z]"

Thanks