макрос для управления свойствами кнопок

[ViktorASh]

Добрый день. Помогите пожалуйста исправить макрос - изменение свойств кнопок на рабочем листе (цвет, надпись). Запускается при изменении вычисляемых значений в конкретных ячейках.
Sub EditREG()

Sheets("Reg").Select
ActiveSheet.Unprotect

With CommandButton20
.Caption = [BB6]
End With
With CommandButton1
.Caption = [BB7]
If [BB7] = "Объединить" Then .BackColor = &HC0FFC0
If [BB7] = "Разгруппировать" Then .BackColor = &HC0E0FF
If [BB7] = "" Then CommandButton1.BackColor = &H8000000F
End With
CommandButton2.Caption = [BB8]
CommandButton3.Caption = [BB9]
CommandButton4.Caption = [BB10]
CommandButton5.Caption = [BB11]
CommandButton6.Caption = [BB12]
CommandButton7.Caption = [BB13]
CommandButton8.Caption = [BB14]
CommandButton9.Caption = [BB15]
CommandButton10.Caption = [BB16]
CommandButton11.Caption = [BB17]
CommandButton12.Caption = [BB18]
CommandButton13.Caption = [BB19]
CommandButton14.Caption = [BB20]
CommandButton15.Caption = [BB21]
CommandButton16.Caption = [BB22]

Range("AE7").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

при запуске макрос выдает ошибку "Variable not defined", так понимаю - переменная не определена. (подсвечивает CommandButton20)
в тоже время, этот же текст нормально работает на самом раб листе, даже без конструкции With,

прим: буду признателен, если еще подскажете как грамотно написать текст для Private Sub Worksheet_Calculate(). ячейки в которых меняется/вычисляется значение перечислены в макросе.

[EducatedFool]

Вы бы файл свой прикрепили, - без него сложно разобраться, в чем проблема.