Changing a Table Name

[Lorlai]

I am trying to change a table name, and am running into some problems. How can I change the name if I do not know the name of the table? I tried recording a macro and was presented with this code:

ActiveSheet.ListObjects("Table1").Name = "Change"

But this only works if you know that the table originally was called "Table1". Is there a way to change this so that you can change the table name without knowing the original table name?

Thank you!

 

[shg]

If it's the only table on the worksheet,

ActiveSheet.ListObjects(1).Name = "Change"

 

[Lorlai]

Thank you shg! That worked perfectly. Sometimes this Excel logic escapes me...


:wink: