Hi all,
Need Help...
I have a user form in which i have 6 check boxes. ok and cancel button.
when ever I click 1st check box, rows 1 to 10 should to be editable, rest
all rows should be non editable and hidden.
For check box 2, rows 11 to 20 editable, rest up and down area should be non
Dim ws As Worksheet
Const pass As String = rash
Dim ArChkBox(1 To 6) As Object
Private Sub UserForm_Activate()
Set ArChkBox(1) = CheckBox1
Set ArChkBox(2) = CheckBox2
Set ArChkBox(3) = CheckBox3
Set ArChkBox(4) = CheckBox4
Set ArChkBox(5) = CheckBox5
Set ArChkBox(6) = CheckBox6