Convert All Sheets Data Into Excel Tables with VBA

This VBA Code allows you to convert all the sheets data into Excel Tables.

Video

Check out the video for easy demonstration

Subscribe to YouTube Channel for Exciting Tips & Tricks On Office Applications

You can use the code in Excel for mac & windows

1. Copy the below VBA Code by clicking on the copy box
2. Open Microsoft Visual Basic for Applications window Developer Ribbon Tab > Visual Basic (Shortcut keys as follows for mac & windows)
   1. mac users fn  + ⌥ [option] + F11 
   2. windows users Alt  + F11
3. From the menu bar select Insert > Module and insert new Modules
4. Paste the code into the module.

Note: It is always to take a back-up copy of your original before running the code on the original file.

Sub ConvertDataToTables()
  'ConvertDataToTables Macro, This Code will convert all the data in the Excel Worksheet to Excel Tables
  ' Made It Easy By ExcelExciting.com
  Dim i as Integer
    Sheets(1).Select
    
    For i = 1 To Sheets.Count
        Sheets(i).Activate
        Range("A1").CurrentRegion.Select
        If ActiveSheet.ListObjects.Count < 1 Then
            ActiveSheet.ListObjects.Add.Name = ActiveSheet.Name
        End If
    Next i
End Sub

Was the information helpful in this blog?

• If yes, hit that share button and show the excitement to the world.
• Subscribe to our free posts.

If no, please let us know what to improve.

Having trouble with any Office Apps. Feel free to ask and answer queries at our forums section.