Option Explicit
Private Sub UserForm_Initialize()
Dim T(), C As Long
T = ActiveSheet.[A16:L16].Value
For C = 1 To UBound(T, 2)
Me("CheckBox" & C).Value = Left$(T(1, C), 2) = "× "
Next C
End Sub
Private Sub CommandButton1_Click()
Dim T(), C As Long
T = ActiveSheet.[A16:L16].Value
For C = 1 To UBound(T, 2)
T(1, C) = IIf(Me("CheckBox" & C).Value, "× ", "") & Replace$(T(1, C), "× ", "")
Next C
ActiveSheet.[A16:L16].Value = T
Me.Hide
End Sub