Macro on multiple sheets - grouped sheets

Hi, Stan

if you record a macro and work on that so that it fulfills the task you want you can run it on each worksheet of the workbook instead of grouping/ungrouping.

Sub AllWorksheets()
Dim ws As Worksheet

Application.ScreenUpdating = False  'no flicker
For Each ws In ActiveWorkbook.Worksheets
  ws.Activate
  Call StansMacro
Next ws
Application.ScreenUpdating = True
End Sub

Sub StansMacro()
'put in the code you recorded and worked over
End Sub

If you need only certain sheets to work on you may use something like

Sub CertainWorksheets()
Dim ws As Worksheet

Application.ScreenUpdating = False  'no flicker
For Each ws In ActiveWorkbook.Worksheets
  Select Case ws.Name
    Case "Sheet1", "Sheet4", "Sheet7"   'change sheet names to suit
      ws.Activate
      Call StansMacro
    Case Else
  End Select
Next ws
Application.ScreenUpdating = True
End Sub

You can place that in your personl.xls or personal.xlsb to be on hand or inside the file if itīs always the same workbook you work on.

Ciao,
Holger