Autofit all table

[NewTOvba26]

Hi,

I am working on a macro file which copies number of tables from the file to outlook email. Then it changes the alignment of all the tables to center. I was wondering if there is a way or code to autofit all this tables?

Thanks in advance for your help. Really appreciate any help I can get on this.

 

[JoeMo]

Assuming you mean autofit table columns in all tables (list objects) in your workbook, try this:

Sub AutoFitMyTables()
Dim Sht As Worksheet, Tbl As ListObject
Application.ScreenUpdating = False
For Each Sht In ActiveWorkbook.Worksheets
       For Each Tbl In Sht.ListObjects
              Tbl.Range.EntireColumn.AutoFit
       Next Tbl
Next Sht
Application.ScreenUpdating = True
End Sub