VBA to convert table to range

[General Ledger]

Dear All,

I am looking for VBA to convert a table to a range. I used the macro recorder and selected the Convert to range option from the Table Ribbon. The resulting macro was completely empty:

Sub Macro2()
'
' Macro2 Macro
'
'
End Sub

Any ideas?

Thanks,

GL

 

[pgc01]

Hi

Try:

    ActiveSheet.ListObjects("MyList").Unlist

 

[General Ledger]

pgc01,

Your code works perfectly.

The code requires the name of the table. Can you advise what the code would be if you did not know the name of the table? Can you use a wildcard? This code does not work.

ActiveSheet.ListObjects("?").Unlist

Thanks,

GL

 

[pgc01]

Hi

You can also refer to the table using its index in the ListObjects collection. For ex., if you have just defined one table in the active worksheet, try:

ActiveSheet.ListObjects(1).Unlist