Excel Table Reference Name Captured from Another Cell Value

[Morshed_Dhaka]

Hi Everyone, I am looking for a solution of complicated problem. Below is my problem details:
I have excel table with huge data. For example, my table starts & ends at Sheet1! $D$7:$R$2926 .
The Table is named as “Data1”. But I want to change the table name as “January” which name will be collected from another cell reference which is B1.
How I will able to do it ???
Advance Thanks for your support.

 

[My Aswer Is This]

Try this:

Sub Table_Name()
'Modified 6/22/18 11:08 PM EDT
ActiveSheet.ListObjects("Data1").Name = Range("B1").Value
End Sub

 

[My Aswer Is This]

If you only have one Table in the active sheet.
And you want to be changing it's name often.

Try this:

Sub Table_Name()
'Modified 6/22/18 11:39 PM EDT
ActiveSheet.ListObjects(1).Name = Range("B1").Value
End Sub