Table Names

[HanSam]

Hey guys, any one knows how to automatically list down all table names from a workbook?

 

[NARAYANK991]

Hi ,

VBA will help. See this :

https://social.msdn.microsoft.com/F...an-excel-sheet-programatically?forum=exceldev

Narayan

 

[KenU]

If you only want to view all the names (without writing to a range), you can do so in the Name Manager. From Formulas tab --> Name Manager --> Filter (top right) --> Table Names.

I hope that helps.

Regards,
Ken

 

[Monty]

Hello Hansam

Not sure about excel formula, but can be done with excel vba...

Try this!

Sub ListWorkSheetNamesNewWs()

Dim xWs As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
xTitleId = "KutoolsforExcel"
Application.Sheets(xTitleId).Delete
Application.Sheets.Add Application.Sheets(1)
Set xWs = Application.ActiveSheet
xWs.Name = xTitleId
For i = 2 To Application.Sheets.Count
    xWs.Range("A" & (i - 1)) = Application.Sheets(i).Name
Next
Application.DisplayAlerts = True
End Sub

 

[Derek McGill]

I think he wants "Table names" not Sheet Names.

 

[Derek McGill]

Try this :-

Sub ListTables()
Dim tbl As ListObject
Dim WS As Worksheet
Dim i As Single

i = 1

For Each WS In Worksheets
    For Each tbl In WS.ListObjects
        Range("A1").Cells(i, 1).Value = tbl.Name
        i = i + 1
    Next tbl

Next WS

End Sub