Как сделать по умолчанию неактивный checkbox?

[doober]

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

Private Sub UserForm_Activate()
CheckBox1.Enabled = ActiveCell.Column <> 2
CheckBox2.Enabled = ActiveCell.Column <> 3
CheckBox3.Enabled = ActiveCell.Column <> 4
CheckBox4.Enabled = ActiveCell.Column <> 5
CheckBox5.Enabled = ActiveCell.Column <> 13
CheckBox6.Enabled = ActiveCell.Column <> 14
CheckBox7.Enabled = ActiveCell.Column <> 21
CheckBox8.Enabled = ActiveCell.Column <> 15
CheckBox9.Enabled = ActiveCell.Column <> 16
CheckBox10.Enabled = ActiveCell.Column <> 19
End Sub

Не кошерно.
Именуете чекбоксы по номерам столбцов

On Error Resume Next
Me.Controls("CheckBox" & ActiveCell.Column).Enabled = False

[Lamo]

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

Не кошерно.
Именуете чекбоксы по номерам столбцов

On Error Resume Next
Me.Controls("CheckBox" & ActiveCell.Column).Enabled = False

Спасибо, работает!