[redilS]

Quick and dirty:

  
  Dim bCellsFilled As Boolean
 
  For Each Column In Columns("A:Z")
 
    Column.Select
    bCellsFilled = False
 
    For Each cell In Selection.Cells
      DoEvents
      If cell.Value <> Empty Then
        bCellsFilled = True
        Exit For
      End If
    Next
 
    If bCellsFilled = False Then
      Column.EntireColumn.Hidden = True
    End If
 
  Next

Läuft aber bei komplett leeren Spalten ne ganze Weile, da wirklich _jede_ Zelle in _jeder_ Spalte auf Inhalt geprüft wird.