NameNum

Public Function NameNum(sName) As Long
    name2 = LCase(sName)
    For letter = 1 To Len(sName)
        Name4 = Mid(name2, letter, 1)
        'Debug.Print Name4
        Select Case Name4
        Case "a"
            Number = Number + 1
        Case "b"
            Number = Number + 2
        Case "c"
            Number = Number + 3
        Case "d"
            Number = Number + 4
        Case "e"
            Number = Number + 5
        Case "f"
            Number = Number + 6
        Case "g"
            Number = Number + 7
        Case "h"
            Number = Number + 8
        Case "i"
            Number = Number + 9
        Case "j"
            Number = Number + 1
        Case "k"
            Number = Number + 2
        Case "l"
            Number = Number + 3
        Case "m"
            Number = Number + 4
        Case "n"
            Number = Number + 5
        Case "o"
            Number = Number + 6
        Case "p"
            Number = Number + 7
        Case "q"
            Number = Number + 8
        Case "r"
            Number = Number + 9
        Case "s"
            Number = Number + 1
        Case "t"
            Number = Number + 2
        Case "u"
            Number = Number + 3
        Case "v"
            Number = Number + 4
        Case "w"
            Number = Number + 5
        Case "x"
            Number = Number + 6
        Case "y"
            Number = Number + 7
        Case "z"
            Number = Number + 8
        Case " "
            Number = Number + 0
        End Select
    Next
    ' Debug.Print Number
    Nu = Val(Number)
    Do
        Nu = Val(Mid(CVar(Nu), 1, 1)) + Val(Mid(CVar(Nu), 2, 1))
        'Debug.Print Nu
    Loop Until Nu < 10
    NameNum = Nu
End Function