Get Tables Name from Workbook

[hatahetahmad]

Hi I have a work book and i have many tables in it

How Can I Get Tables Name in Range To Make Drop Down List
Only Tables Name

For Example: I have 6 tables in workbook
I need To make new sheet (ex.Sheet7) that contain tables name

So in "Sheet7"
"A1=Table1"
"A2=Table2"
"A3=Table3"
"A4=Table4"
"A5=Table5"
"A6=Table6"

Like That

 

[Paoolo]

Hi, try the following solution. Create a new worksheet, right click on sheet tab and select "View code". Paste the code, go back to Excel and run the macro.

Sub List_Tables()

    Dim ws As Worksheet
    Dim table As ListObject
    
    i = 1
    
    For Each ws In ThisWorkbook.Worksheets
        
        For Each table In ws.ListObjects
            Cells(i, 1).Value = table.Name
            i = i + 1
        Next table
        
    Next ws

End Sub

 

[hatahetahmad]

worked thank you very much

 

[Paoolo]

You're welcome!