Список символов, которые допустимы в качестве 1го символа именованного диапазона / List of Symbols for Name prefix

Option Base 1
Option Explicit
Option Private Module
'==================================================================================================
' РАБОТАЕТ 10 минут !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Sub Test()
Dim aSym()
Dim tx$, ch$, t!, n&, r&
Const nn& = 65535
 
t = Timer
tx = "abcd"
ReDim aSym(nn, 2) ' AscW, Char
 
On Error Resume Next
    For n = 1 To nn
        If n = 32 Then n = 33
        ch = ChrW(n): If Err Then Stop
        ActiveWorkbook.Names.Add ch & tx, [a1]
 
        If Err.Number = 0 Then
            r = r + 1
            aSym(r, 1) = n
            aSym(r, 2) = ch
            ActiveWorkbook.Names(ch & tx).Delete
            If Err Then Stop: End
        Else
            Err.Clear
        End If
    Next n
On Error GoTo 0
 
If r = 0 Then Stop: End
[a2].Resize(nn, 2).ClearContents
[a2].Resize(r, 2).Value2 = aSym
 
MsgBox "Find&Load Symbols: " & Format$(r, "#,##0"), vbInformation, Format$(Timer - t, "0.00")
End Sub
'==================================================================================================
Sub ShowSelected()
Dim cl As Range
    For Each cl In Selection
        Debug.Print cl.Row, cl
    Next cl
End Sub
'==================================================================================================