Public Sub PrintTableNames()
    Dim pConn As Object, pRSet As Object
    
    Set pConn = CreateObject("ADODB.Connection")
    pConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 12.0;HDR=YES';"
    
    Set pRSet = pConn.OpenSchema(adSchemaTables)
    Do Until pRSet.EOF
        Debug.Print pRSet("TABLE_NAME").Value
        pRSet.MoveNext
    Loop
    pRSet.Close: pConn.Close
    Set pRSet = Nothing: Set pConn = Nothing
End Sub

Set pRSet = pConn.OpenSchema(20)

Private Function IsAdoName(ByVal thisName As Name) As Boolean
On Error GoTo errHandle
    Dim pRange As Range
    Set pRange = thisName.RefersToRange
    IsAdoName = True
Exit Function
errHandle:
    IsAdoName = False
End Function
Public Sub TestNames()
    Dim pName As Name
    For Each pName In ThisWorkbook.Names
        Debug.Print pName.Name & " = " & IsAdoName(pName)
    Next
End Sub