AshtonДа, я тоже не люблю незавершенных дел и вопросов без ответов.
Сделал я надстройку, разместил в ней следующий код.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Public cmb As CommandBarComboBox
Public Sub ActivateWs()
Worksheets(cmb.List(cmb.ListIndex)).Activate
End Sub
Public Sub CreateComboBox()
Dim cb As CommandBar
Dim ws As Worksheet
Set cb = Application.CommandBars.Add( _
Name:="Temp", _
Temporary:=True)
Set cmb = cb.Controls.Add( _
Type:=msoControlComboBox)
For Each ws In ActiveWorkbook.Worksheets
cmb.AddItem ws.Name
Next ws
With cmb
.DropDownWidth = 100
.ListIndex = 1
.OnAction = "ActivateWs"
End With
cb.Visible = True
End Sub
Добавил в книге ссылку на эту надстройку, все ок, в списке все листы этой книги, а не надстройки.
если макрос надстройки CreateComboBox вызывать из уже открытой рабочей книги - тогда всё ОК, но если вызов этого макроса поместить в процедуру открытия надстройки, то в ComboBoxе появляется список листов
НАДСТРОЙКИ!!! :
1.
2.
Private Sub Workbook_Open()
CreateComboBox
End Sub
