Servus,

ich bekomme unter Office365 für folgendes Makro dauernd einen Laufzeitfehler 1004 in der Zeile der Ungruppierung und verstehe nicht warum.

Das Makro soll in allen Sheets (ca. 150 Blätter) die Gruppierung in den Spalten 35-45 aufheben:

Sub GruppierungSpalten()
    Dim ws As Worksheet
    Dim ersteSpalte As Integer
    Dim letzteSpalte As Integer
    
    ersteSpalte = 35
    letzteSpalte = 45
    
    For Each ws In ThisWorkbook.Worksheets
        ws.Columns(ersteSpalte & ":" & letzteSpalte).Ungroup
    Next ws
    
 End Sub

Jemand eine Idee, woran das liegt?

Vielen Dank im voraus für Eure Mühe