Excel VBA Current Table Name

[JeannetteE]

Hi,

I have a Worksheet with multiple Tables, how can I find the Table Name of the Table I'm currently in? Everything seems to point to ListObject(1) but I don't know which ListObject Number it is.

Any help appreciated

 

[KennyGreens]

Hi there, I'm not sure if this is what you are looking for, but if you just want the name of the table, you can use:

ActiveCell.ListObject.Name

 

[JeannetteE]

Hi there, I'm not sure if this is what you are looking for, but if you just want the name of the table, you can use:

ActiveCell.ListObject.Name

Thank you, so easy! I've tried the same principle for the Header Name but it doesn't work, ActiveCell.ListColumn.Name nd other variants. Apologies but Tables are new to me.

 

[KennyGreens]

Thank you, so easy! I've tried the same principle for the Header Name but it doesn't work, ActiveCell.ListColumn.Name nd other variants. Apologies but Tables are new to me.

No problem. If you wish to get the header name for the active cell in the table, you can use something like this:

Dim ws As Worksheet
Dim tName As String
Dim hName As String
Dim i As Integer

Set ws = ActiveSheet

tName = ActiveCell.ListObject.Name

i = ActiveCell.Column - ActiveCell.ListObject.DataBodyRange.Column + 1
hName = ws.ListObjects(tName).ListColumns(i).Name

MsgBox (hName)

 

[JeannetteE]

No problem. If you wish to get the header name for the active cell in the table, you can use something like this:

Dim ws As Worksheet
Dim tName As String
Dim hName As String
Dim i As Integer

Set ws = ActiveSheet

tName = ActiveCell.ListObject.Name

i = ActiveCell.Column - ActiveCell.ListObject.DataBodyRange.Column + 1
hName = ws.ListObjects(tName).ListColumns(i).Name

MsgBox (hName)

Thank you so much!

 

[KennyGreens]

Thank you so much!

Glad I can help!