Как вставить ComboBox и CommandButton в Toolbars

[Ser Artur]

или в Tree при этом чтобы выполнялись условия например если СomboBox = "A" то открыть Sheet1. СomboBox = "B" то открыть Sheet2 и т,д,. мне помогли но условие не выполнялось

Код: Выделить всё

Private Sub Workbook_Activate() 

With Application.CommandBars("Worksheet Menu Bar") ' 
With .Controls.Add(Type:=msoControlComboBox) 
     .BeginGroup = True 
     .OnAction = "wsActivate" 
For Each iList In Worksheets 
     .AddItem iList.Name 
Next 
End With 
End With 

End Sub 

Private Sub Workbook_Deactivate() 

Application.CommandBars("Worksheet Menu Bar").Reset 

End Sub

Macro1() 
e = msoComboBox.Text 
If msoComboBox.Text = e Then 
Sheets(e).Select 
End Sub[.code]

[pashulka]

А всё потому, что оставили "за бортом" вторую часть кода, а именно макрос Private Sub wsActivate()