Public WithEvents chx As MSForms.CheckBox, i, c As Byte
Private Sub chx_Click()
c = 0
With UserForm1
For i = 1 To 10
If .Controls("CheckBox" & i) = True Then
c = c + 1
.Controls("Label" & i).Visible = True
.Controls("TextBox" & i).Visible = True
Else
.Controls("Label" & i).Visible = False
.Controls("TextBox" & i).Visible = False
End If
Next i
End With
End Sub