How to change tablestyle with VBA without knowing the name of the table?

[rizzo93]

I am trying to make a personal macro so that whenever I want to change the tablestyle of the table I have the active cell in, it will change it to the style I've designated in my code.

For example:

Sub OrangeTable()
    Range("B4").Select
    ActiveSheet.ListObjects("Table1").TableStyle = "TableStyleMedium3"
End Sub

This code works if the table's name happens to be Table1, but I want to apply the style to the table no matter what the name is.

How can I make this so that the table name is no longer a consideration?

 

[mrshl9898]

By "My Answer is This"

Excel VBA - Select Active Table in Active Sheet in Active Workbook?

I am trying to write a Macro that would select the Active Table in the Active Sheet in the Active Workbook for data stored in "C3:H9". I know the following VBA references can be used: "Application.ActiveWorkbook.ActiveSheet.ActiveCell" can be used to refer to the ActiveCell as mentioned in Link...

www.mrexcel.com

Sub Get_Table_Name()

ans = ActiveCell.ListObject.Name
ActiveSheet.ListObjects(ans).TableStyle = "TableStyleMedium3"
End Sub

 

[rizzo93]

That is awesome! Thank you, mrshl9898!