Dim Spalte As Integer
Application.ScreenUpdating = False
For Spalte = 256 To 1 Step -1
If Application.CountA(Columns(Spalte)) = 0 Then
Application.ScreenUpdating = True
I would be happy to know if I could help.
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.