Delete blank columns in an exelsheet

796408 

Try using VBA

Option Explicit

Sub nikolino_del()
Dim Spalte As Integer
Application.ScreenUpdating = False
For Spalte = 256 To 1 Step -1
  If Application.CountA(Columns(Spalte)) = 0 Then
     Columns(Spalte).Delete
  End If
Next
Application.ScreenUpdating = True
End Sub

I would be happy to know if I could help.

Nikolino

I know I don't know anything (Socrates)

* Kindly Mark and Vote this reply if it helps please, as it will be beneficial to more Community members reading here.