Как выделить (сгруппировать) сразу все рабочие листы — Visual Basic(Бейсик)

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