Code to change table name

[happyhungarian]

Hi, I need a code that would take the name of a worksheet and rename the only table that resides on that worksheet to the same name. For example, if I change the name of a worksheet to "Today" the table on that worksheet would also now be named "Today".

 

[My Aswer Is This]

How do you plan to change the sheet name?
Manually or by using code.

If by code show me the script you have to change the sheet name.

 

[happyhungarian]

It's part of a code. The sheet name is actually only changed upon creation of the sheet itself. The creation happens through this code as well

Sub CreateAndNameWorksheets()
Dim c As Range

Application.ScreenUpdating = False
For Each c In Sheets("Start").Range("b17:b19")
Sheets("blank").Copy After:=Sheets(Sheets.Count)
With c
ActiveSheet.Name = .Value
.Parent.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _
"'" & .Text & "'!A1", TextToDisplay:=.Text
End With
Next c
Application.ScreenUpdating = True
End Sub

 

[jim may]

This worked for me...

Sub Macro1()
Dim Ans As String
Ans = Application.InputBox("Enter New Sheet and Table Name.")
    With ActiveSheet
        .Name = Ans
        .ListObjects(1).Name = Ans
    End With
End Sub

 

[My Aswer Is This]

Here is a example:

Maybe you can incorporate this into your script:

Sub Table_Name()
'Modified 3/28/2019 5:53:38 PM  EDT
ActiveSheet.ListObjects(1).Name = ActiveSheet.Name
End Sub

 

[happyhungarian]

It worked in a test case! Let's see if I can get it to work along with the bigger script! Thank you!

 

[My Aswer Is This]

Assuming when said worked in a test you were referring to my script.
Your script should look like this:

Sub My_Script()
'Modified 3/28/2019 6:14:25 PM  EDT
Dim c As Range
Application.ScreenUpdating = False
For Each c In Sheets("Start").Range("b17:b19")
Sheets("blank").Copy After:=Sheets(Sheets.Count)
With c
ActiveSheet.Name = .Value
.Parent.Hyperlinks.Add Anchor:=c, Address:="", SubAddress:= _
"'" & .Text & "'!A1", TextToDisplay:=.Text
ActiveSheet.ListObjects(1).Name = ActiveSheet.Name
End With
Next c
Application.ScreenUpdating = True
End Sub

 

[happyhungarian]

Yep!