Public Function fncSQLImport_ReadTableList(sFN As String, Optional bDelSym As Boolean) As Variant
Dim cN As ADODB.Connection, sConn As String
Dim objCat As ADOX.Catalog, tbl As ADOX.Table
Dim vT As Variant, iC As Integer
Dim sSheet As String
''''''''''''''''
Set cN = New ADODB.Connection
sConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & VBA.Chr(34) & sFN & VBA.Chr(34) & ";" & "Extended Properties='Excel 12.0;HDR=YES;IMEX=1';"
cN.Open sConn
Set objCat = New ADOX.Catalog
Set objCat.ActiveConnection = cN

ReDim vT(objCat.Tables.Count - 1): iC = 0
For Each tbl In objCat.Tables
    vT(iC) = IIf(bDelSym, Left(Application.Substitute(tbl.Name, "'", ""), InStr(1, tbl.Name, "$", 1) - 1), tbl.Name)
    iC = iC + 1
Next tbl
fncSQLImport_ReadTableList = vT
cN.Close
Set objCat = Nothing
Set cN = Nothing
End Function