Naming a table in a macro

[Christiinin]

Hello!

I'm new in the wondrous world of VBA-coding and macros, and could use a few tips on how to proceed

My goal is to make a macro to create a new table with my setting preferences, and giving it a unique name.

My problem occurs, when I'm using my recorded macro on another set of data, it wants to give it the same name as the first.

My ideas for solutions:
- Copy a name from a cell ("A1") and pasting it into the name field in the design tab.
- A pop up box during the macro, giving the user the option to type in the name
- An auto generated unique name, every time the macro is run

But I don't yet know how to implement it.

I'm open to other suggestions aswell :D

 

[mart37]

ActiveSheet.ListObjects("Table1").Name = [A1]
ActiveSheet.ListObjects("Table1").Name = InputBox("Name for table:")
ActiveSheet.ListObjects("Table1").Name = Int((99999999 - 10000000 + 1) * Rnd + 10000000)

 

[Christiinin]

Thanks!

I do have a followup question:


Range("B2").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select


ActiveSheet.ListObjects("Table1").Name = InputBox("Name for table:")

Range("Table1[#All]").Select

ActiveSheet.ListObjects("Table1").ShowAutoFilterDropDown = False
ActiveSheet.ListObjects("Table1").ShowTableStyleFirstColumn = True

How do I get it to refer to the newly named table?

Thanks!
Christin

 

[mart37]

newname = InputBox("Name for table:")
ActiveSheet.ListObjects("Table1").Name = newname
ActiveSheet.ListObjects(newname).ShowAutoFilterDropDown = False
ActiveSheet.ListObjects(newname).ShowTableStyleFirstColumn = True