Переменное имя объекта

[transgd]

Просьба ответить новичку в Visual Basic.
В таблице Excel у меня 31 кнопка CommandButton (по количеству дней в месяце).
Их имена отличаются только номером: с 1 до 31
(CommandButton1,CommandButton2 ...)
Хочется изменять свойства (ForeColor и т.п.) этих кнопок, не перебирая их
имена, а к примеру (который я не могу правильно написать):

Worksheets("табель").CommandButton & ddd & .ForeColor = 3

где ddd - как-раз этот номер кнопки в символьном выражении.
И еще вопрос: при нажатии на каждую из этих кнопок, обязательно
обрабатывать 31 событие CommandButton1-31_Click() или это можно упростить?

[EducatedFool]

Я же говорил - без примера файла помочь будет сложно...
К примеру, кнопки бывают 2 видов. Откуда нам знать, какие у Вас в файле?

при нажатии на каждую из этих кнопок, обязательно
обрабатывать 31 событие CommandButton1-31_Click() или это можно упростить?

Если кнопки создаются программно, то всё просто (достаточно подредактировать макрос их создания)

Если же все эти кнопки созданы вручную - то придётся прописывать 31 строку (по строке для каждой кнопки)

По поводу раскраски кнопок - можно попробовать так:

Sub test()
    Dim sha As Shape
    For Each sha In Me.Shapes
        Debug.Print sha.Name
        If sha.Name Like "CommandButton*" Then
            ' изменяем параметры кнопки
        End If
    Next
End Sub

[transgd]

Вот часть кода:

With Worksheets("график").Range("D" & (7 + (cur_month - 1) * 8) & ":" & "AH" & (7 + (cur_month - 1) * 8))
For ii = 4 To 6
For jj = 6 To 16
dd = dd + 1
If val(.Cells(1, dd)) > 0 Then
Worksheets("табель").Cells(ii, jj) = .Cells(1, dd)
If .Cells(1, dd).Interior.ColorIndex = 3 Then
Worksheets("табель").CommandButton1 .ForeColor = 3
Else
Worksheets("табель").Cells(ii, jj).Interior.ColorIndex = 2
Worksheets("табель").CommandButton1 .ForeColor = 2
End If
End If
Next jj
Next ii
End With

Здесь на листе "табель" заполняются ячейки дней текущего месяца из листа "график". На листе "график" праздничные дни закрашены в красный цвет (.ColorIndex = 3). Хочется надписи кнопок (31 кнопка), номера которых соответствуют праздничным дням, тоже закрасить в .ColorIndex = 3.
В строках: Worksheets("табель").CommandButton1 .ForeColor =
необходимо вместо "1" использовать значение переменной "dd" (номер праздничного дня).
Вопрос: как это сделать?

[transgd]

Во вложении лежит файл таблицы.
Описываемый код находится в Workbook_Open()