vba copy outline/column groups to all worksheets

Hi Gurus,

Im looking for help in how to write VBA macro which will copy the column groups from one worksheet and apply them to all other worksheets in the workbook.

"List" worksheet has the same columns as every other worksheet in the workbook, I have used the group feature to allow me to easily expad and collapse several columns. There are about 10 groups across columns in this worksheet.

Every other worksheet in the workbook has the same columns (they were created with another macro as a copy of "List"). I want the same groupings applied to each of them.

I hope thats clear! Thanks in advance for any help!

Cheers,
Tim

Re: vba copy outline/column groups to all worksheets

Thanks for the suggestion - that works! But it is very very slow if I basically copy/paste the formatting of the entire worksheet.

I've tried to narrow down my range to sped it up, but keep getting errors. where am I going wrong?

Dim LastC As Long
Sheets("list").Activate
LastC = LastCol(ActiveSheet)
With ActiveSheet
Range(Cells(1, 1), Cells(1, LastC)).EntireColumn.Copy
End With
For Each ws In ThisWorkbook.Worksheets 'loop through the worksheets
        If ws.Name = "List" Or ws.Name = "Instructions" Then
        Else
    
      Range(Cells(1, 1), Cells(1, LastC)).PasteSpecial.xlPasteFormats 'runtime error 424 on this line
       
    End If
        
    Next
    
    End Sub