1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Worksheets.SelectЕсли рабочая книга содержит хотя бы один скрытый рабочий лист, то Вы получите ошибку, которую можно избежать, если выделить все листы рабочей книги (не только рабочие)With Application.CommandBars.FindControl(Id:=946) .Enabled = True .ExecuteEnd WithЕсли необходимо выделить именно рабочие листы, то:For Each iList In Worksheets If iList.Visible = True Then iList.Select Replace:=False End IfNext |