Excel VBA convert all tables to ranges

[jamilm]

Gurus,

is there a simple vba that converts all tables of workbook back to normal range?

thanks.

 

[Rick Rothstein]

Give this macro a try...

Sub MakeAllTablesRegularRanges()
  Dim WS As Worksheet, LO As ListObject
  For Each WS In Worksheets
    For Each LO In WS.ListObjects
      LO.Unlist
    Next
  Next
End Sub

 

[jamilm]

Give this macro a try...

Sub MakeAllTablesRegularRanges()
  Dim WS As Worksheet, LO As ListObject
  For Each WS In Worksheets
    For Each LO In WS.ListObjects
      LO.Unlist
    Next
  Next
End Sub

thank you Rick.

worked.

 

[BHorton2]

Give this macro a try...

Sub MakeAllTablesRegularRanges()
  Dim WS As Worksheet, LO As ListObject
  For Each WS In Worksheets
    For Each LO In WS.ListObjects
      LO.Unlist
    Next
  Next
End Sub

No matter what I try to rename and save my file before running this macro, I get back a "Run-time Error '1004'"

 

[Rick Rothstein]

No matter what I try to rename and save my file before running this macro, I get back a "Run-time Error '1004'"

Since this is a macro and you say you have not run it yet, then it cannot be the source of your "Run-time" error. Perhaps you have some code in the BeforeSave event procedure in the ThisWorkbook's code module (which would be running when you try to save the workbook) that is the source of this error.