Macro to group / ungroup columns on multiple sheets

I have a workbook with approx. 15 sheets.
First 10 sheets are having the same layout.
I would like to group following columns on first 10 sheets:

D,E,F (1 group)
O,P,Q (1 group)
Z,AA,AB (1 group)

I have this code, but it will select all sheets in the workbook, how can I modify to select the first 10 sheets only?

Sub Group_Sheets()

Dim ws As Worksheet

For Each ws In Worksheets
   ws.Select
   Columns("D:F").Group
   Columns("O:Q").Group
   Columns("Z:AB").Group
Next ws

End Sub

Hello Yllew,

Try modifying your code as follows:-

Sub Group_Sheets()

    Dim sht As Worksheet, ws As Worksheet
    Dim shRng As Range, lr As Long
    
    Set sht = Sheets("List")
    lr = sht.Range("A" & Rows.Count).End(xlUp).Row
    Set shRng = sht.Range("A1:A" & lr)
    
Application.ScreenUpdating = False

For Each ws In Worksheets
        If shRng.Find(What:=ws.Name, LookAt:=xlWhole) Is Nothing Then '----> This line will exclude the unrequired sheets.
        ws.Columns("D:F").Group
        ws.Columns("O:Q").Group
        ws.Columns("Z:AB").Group
        End If
Next ws

Application.ScreenUpdating = True

End Sub

Firstly, create a new sheet and name it List. Next, starting in cell A1 of the List sheet, list all the sheets that you wish to exclude from the whole process (sheets 11 - 15).

The code should now only group the sheets that are not listed in the List sheet. You can add or remove sheets from the list as your needs may require in future.

I hope that this helps.

Cheerio,
vcoolio.

Thank you so much vcoolio and Arkadi! both work perfectly, you guys help me a lot

Good day Yllew,

You're welcome. I'm glad that we could help out.
Thanks for the rep also.

Cheerio,
vcoolio.