CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_colautofit.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.online-vba.de
' ****************************************************************

Public Sub OVBAde_AutoFitColumnsAllTables()
  Dim oTable As Object
    
     For Each oTable In ActiveWorkbook.Worksheets
          oTable.Columns.AutoFit
     Next oTable
    
     Set oTable = Nothing
End Sub