Пищите по форуму - динамические графики.

Диапазоны имеют имя. Так? Значит тем или иным способом выбираем имя, и по нему строится/отображается график. Я потому и дал наводку для поиска - там подобные решения были.

Вот для начала пример Vikttur с "переключателем". Правда, на листе. В качестве такого переключателя можно использовать, например, ComboBox. Или мы о разном? :-)

Понятно. Как вариант, могу предложить использовать UserForm. Она может отображаться и на листе диаграмм. А уже на ней контрол.

{quote}{login=The_Prist}{date=25.11.2010 09:55}{thema=}{post}Т.е. Вы не удосижились проверить тот код, который я выложил? Или там не ComboBox? Или вопрос не  в этом? Может тогда стоит вопрос нормально сформулировать?{/post}{/quote}  
Приношу свои извинения - сперва неправильно вставил код. Все получилось, спасибо. Теперь разбираюсь как в additem прописать диапазоны. Еще раз спасибо за помощь

Возможен ли такой черновой вариант:  
 
Private Sub ComboBox1_Change()  
With ComboBox1  
   .AddItem "СТС"  
   .AddItem "ДТВ"  
End With  
End Sub  
 
Private Sub ComboBox2_DropButtonClick()  
Array_СТС(1) = "Москва"  
Array_СТС(2) = "СПб"  
Array_СТС(3) = "Усть Илимск"  
Array_ДТВ(1) = "Москва"  
Array_ДТВ(2) = "Калининград"  
 
If ComboBox1.Value = "ДТВ" Then  
   ComboBox2.List() = Array_ДТВ  
ElseIf ComboBox1.Value = "СТС." Then  
   ComboBox2.List() = Array_СТС  
End If  
End Sub

The_Prist, гранмерси, Ваш совет оказался панацеей )  
 
Итак, вот такой черновой вариант вышел в конце-концов:  
Модуль:  
 
Public oCbx As New Class1    
Sub Create_Menu_DropDown()  
Dim oCombo  
Application.CommandBars("Моя панель").Delete  
With Application.CommandBars.Add  
.Visible = True: .Name = "Моя панель": .Position = msoBarTop  
Set oCombo1 = .Controls.Add(3)  
Set oCbx.oMyCmbx1 = oCombo1  
With oCombo1  
.AddItem Range("A1")  
.AddItem Range("A2")  
.ListIndex = 1    
End With  
Set oCombo2 = .Controls.Add(3)  
Set oCbx.oMyCmbx2 = oCombo2  
With oCombo2  
.AddItem Range("B1")  
.AddItem Range("B2")  
.ListIndex = 1    
End With  
End With  
Range("C1") = oCombo1.Text & " " & oCombo2.Text  
Range("d1") = oCombo2.Text  
End Sub  
 
 
Модуль класса:  
Public WithEvents oMyCmbx1 As CommandBarComboBox  
Public WithEvents oMyCmbx2 As CommandBarComboBox  
Public i1 As Integer  
Public i2 As Integer  
Private Sub oMyCmbx2_Change(ByVal Ctrl As Office.CommandBarComboBox)  
i1 = 1  
Range("C1") = oMyCmbx1.Text & " " & oMyCmbx2.Text  
With oMyCmbx1  
i2 = .ListIndex  
While .ListCount > 0  
.RemoveItem 1  
Wend  
While Cells(i1, 1) <> 0  
.AddItem Cells(i1, 1)  
i1 = i1 + 1  
Wend  
 
If .ListCount >= i2 Then  
.ListIndex = i2  
Else  
.ListIndex = 1  
End If  
End With  
End Sub  
Private Sub oMyCmbx1_Change(ByVal Ctrl As Office.CommandBarComboBox)  
Range("C1") = oMyCmbx1.Text & " " & oMyCmbx2.Text  
End Sub  
 
 
 
 
В столбце "А" - имена, в столбце "В" - фамилии. В ячейку "С1" выводится имя+фамилия. Как только меняется значение в списке "Фамилия" список "Имя" автоматически обновляется.  
 
 
Еще раз огромное спасибо!

Юрий, спасибо за совет ) Когда-нибудь обязательно использую, но сейчас мне будет удобнее работать с вариантом, который предложил The_Prist