Как выделить (сгруппировать) сразу все рабочие листы?

Worksheets.Select

Если рабочая книга содержит хотя бы один скрытый рабочий лист, то Вы получите ошибку, которую можно избежать, если выделить все листы рабочей книги (не только рабочие)

With Application.CommandBars.FindControl(Id:=946)
     .Enabled = True
     .Execute
End With

Если необходимо выделить именно рабочие листы, то:

For Each iList In Worksheets
    If iList.Visible = True Then
       iList.Select Replace:=False
    End If
Next