Управление листами с пом. ComboBox

[Severny]

Добрый день!
Следующий код предназначался для реализации копирования значений из серых ячеек листов "001" и "002" в желтую ячейку в зависимости что выбрано в ComboBox. Собственно, ничего не получилось.

Private Sub ComboBox1_Change()
Dim e As Integer
e = ComboBox1.ListIndex
[C9] = Worksheets(CStr("00" & e + 1)).Range("A1")
End Sub

Подскажите что в коде не так кроме программиста Может нужен совсем другой подход?
В ComboBox может быть перечень из любого диапазона, он не должен влиять на алгоритм. Привязаны только индексы ComboBox и имена листов (0,1,2,3,... и "001", "002", "003",...)

[staniiislav]

Вообще не понятно какие зависимости Вы имели в введу и что вы в итоге собираетесь получить, точнее по какому критерию нужно разделять листы например?

[Severny]

Сообщение от staniiislav

Вообще не понятно какие зависимости Вы имели в введу и что вы в итоге собираетесь получить, точнее по какому критерию нужно разделять листы например?

Если выбран первый элемент ComboBox, то копируем в желтую ячейку с серой ячейки листа "001", если второй - с листа "002".

[staniiislav]

Так Вы хотели?

[Severny]

Спасибо!
Так хотел, но дело в том что в реальном примере ячеек много и листов много и они добавляются. Не хотелось бы прописывать все отдельно для каждого листа.

[staniiislav]

тогда так:
но это для одной ячейки, а по какому принципу вы собираетесь находить значение серой ячейки на листе если их (серых ячеек) много на листе, непонятно )))

[Severny]

Во вложеном примере все работает, а в реальном пишет Application-defined or object-defined error.
Позже:
Я не знаю в чем причина, но все работает. Видать где-то в синтаксисе была ошибка.
Спасибо за отзыв.