09.03.2007, 20:42
общий
это ответ
Здравствуйте, Чалагаев И.Г!
На форму помещаем ComboBox (ComboBox1)
И заполняем его перебором всех листов книги:
Private Sub UserForm_Activate()
Dim WS As Object
For Each WS In Sheets ‘ это для всех листов
‘если нужны только рабочие листы, то
‘For Each WS In Worksheets
‘если только диаграммы:
‘For Each WS In Charts
ComboBox1.AddItem WS.Name
Next
End Sub