How can I retreave the name of the selected table?

[USAMax]

I have selected a cell within a table and I need to return name of that table's name.

I am looking for somthing like:

TableName = ActiveTable.name



There are many creative ways to return lists of objects such as ActiveSheet.ListObjects but I only need to return the name of the active table.

Anyone have any thoughts?

 

[Snakehips]

USAmax,

I am not aware of any way you can get the name directly with one line of code.

The best I can offer is this indirect method.
Sub TableName()
For Each Table In ActiveSheet.ListObjects
If Not Intersect(ActiveCell, Table.Range) Is Nothing Then
MsgBox "Selected table is " & Table.Name
Exit Sub
End If
Next Table
MsgBox "No matching table found"
End Sub

Hope that helps.