Hi All

I have started a new thread as the requirements have changed. Can anyone please assist in the simplification of the below code. It is the saving and re-call of a userform containing check boxes.

Private Sub CommandButton1_Click()
If CheckBox1 = True Then
Sheet7.Range("p4") = "T"
Else
Sheet7.Range("p4") = "F"
End If
If CheckBox2 = True Then
Sheet7.Range("q4") = "T"
Else
Sheet7.Range("q4") = "F"
End If
If CheckBox3 = True Then
Sheet7.Range("r4") = "T"
Else
Sheet7.Range("r4") = "F"
End If
If CheckBox4 = True Then
Sheet7.Range("s4") = "T"
Else
Sheet7.Range("s4") = "F"
End If
If CheckBox5 = True Then
Sheet7.Range("p5") = "T"
Else
Sheet7.Range("p5") = "F"
End If
If CheckBox6 = True Then
Sheet7.Range("q5") = "T"
Else
Sheet7.Range("q5") = "F"
End If
If CheckBox7 = True Then
Sheet7.Range("r5") = "T"
Else
Sheet7.Range("r5") = "F"
End If
If CheckBox8 = True Then
Sheet7.Range("s5") = "T"
Else
Sheet7.Range("s5") = "F"
End If
Unload Me
UserForm2.Show
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Sheet7.Range("I4")
TextBox2 = Sheet7.Range("I5")
If Sheet7.Range("p4") = "T" Then
CheckBox1 = True
Else
CheckBox1 = False
End If
If Sheet7.Range("q4") = "T" Then
CheckBox2 = True
Else
CheckBox2 = False
End If
If Sheet7.Range("r4") = "T" Then
CheckBox3 = True
Else
CheckBox3 = False
End If
If Sheet7.Range("s4") = "T" Then
CheckBox4 = True
Else
CheckBox4 = False
End If
If Sheet7.Range("p5") = "T" Then
CheckBox5 = True
Else
CheckBox5 = False
End If
If Sheet7.Range("q5") = "T" Then
CheckBox6 = True
Else
CheckBox6 = False
End If
If Sheet7.Range("r5") = "T" Then
CheckBox7 = True
Else
CheckBox7 = False
End If
If Sheet7.Range("s5") = "T" Then
CheckBox8 = True
Else
CheckBox8 = False
End If

End Sub