Private Sub UserForm_initialize()
MsgBox n
ActiveSheet.Range(Cells(5, 1), Cells(5, 1).Offset(0, (n * 2) - 2)).Select
For Each cell In Selection
Dim I As Byte
Dim ctrl As Control, ctrl2 As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then
If ctrl = True Then
It = ctrl.Tag
For Each ctrl2 In Me.Controls
If TypeName(ctrl2) = "TextBox" Then
If ctrl2.Tag = It Then
ctrl2.Text = "tot"
End If
End If
Next
End If
End If
Next
Set ctrl = Nothing
Set ctrl2 = Nothing
Next cell
Call ctboxfunction(Me)
End Sub