Как написать в VBA условие* "последний символ = "2"*

Формулировка задачи:

Подскажите, как написать в VBA условие
"если последний символ имени ячейки = 2 то ... "
Заранее благодарна

Решение задачи: «Как написать в VBA условие* "последний символ = "2"*»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> Example()
<font color="blue">Dim</font> oCell <font color="blue">As</font> Range
<font color="blue">For</font> <font color="blue">Each</font> oCell <font color="blue">In</font> Selection.Cells
    <font color="blue">If</font> fncHasName(oCell) <font color="blue">Then</font>
        <font color="blue">If</font> oCell.<font color="blue">Name</font> Like <font color="teal">"*2"</font> <font color="blue">Then</font> MsgBox oCell.Address
    <font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font>
<font color="blue">End</font> <font color="blue">Sub</font>
<font color="blue">Function</font> fncHasName(objC <font color="blue">As</font> Range) <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font>
fncHasName = <font color="blue">Not</font> IsEmpty(objC.<font color="blue">Name</font>)
<font color="blue">End</font> <font color="blue">Function</font>
                        