command button - как правильно прописать?

[Максим__]

Здравствуйте!
Есть ячейка «A1» , в ней указана например «Ч1» в ячейку «B1» вводим например «март» ,а в ячейку «С1» вводим например «2011». Нужно чтобы при вводе значений в В1 и С1 command button с именем (Name)«Ч1» Caption равнялся B1&C1 и изменился цвет command button на любой другой. Имен (Name) command button очень много, чтобы не прописывать каждую кнопку имя обозвать за «Х» или еще как пожелаете.
помогите пожалуйста!
Спасибо,

[VictorM]

Что за command button, где?
на листе, на форме???
да и Ваши пробы в виде файла не помешали бы
чтобы потом не переделывать, потому как обязательно окажется, что "почти так, но немного не так"

[Максим__]

command button на листе (button)

[kuklp]

А зачем такие сложности? Мож так(см. файл)?

[Максим__]

Интересный вариант! Спасибо!
Мне необходимо то, что я описал выше для план - схемы склада. Другой вариант мне не подходит. Еще раз спасибо, что отвечаете

[kuklp]

Sub www()
    Dim i&
    For i = 1 To Лист2.Shapes.Count
        With Лист1
            Лист2.Shapes(i).Name = .Cells(i + 1, 1)
            Лист2.DrawingObjects(i).Object.Caption = .Cells(i + 1, 2) & " " & .Cells(i + 1, 3)
        End With
    Next
End Sub

[Максим__]

Большое спасибо за помощь ! вы мне очень помогли
Как бы ее разобрать для моего понимания

[IgorGO]

тут собственно 3 строки кода, неудобно даже как-то обьяснять. но пока Сережа спит...
первая строка "закручивает" цикл по элементам коллекции shapes
вторая присваивает им имена
треть - задает надписи