Check box to clear once I press transfer data button

Hello,

I need a code so from my user form when I check a box and filled in my user form and then transfer data to my spreadsheet

I can get the text all to transfer and it clears the user form but what code do I need to use help me clear the check boxes

Below is the code I have used to transfer the text from my user form to cell b10 and all the text in text box one is all transferred over

Private Sub TRANSFER_DATA_Click()
With TextBox1
Sheets("sheet1").Range("B10").Value = .Text
.Text = ""
End With
End Sub



Currently with my check box once I click on it so it highlights a cell it does it straight away wait until I have pressed my button.

Have I got the code in the wrong place and also what is the correct code. I have pasted my coding sorry for it being soo long.


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Worksheets("Sheet1").Range("H4") = "TRACE DRIVER"
Else
Worksheets("Sheet1").Range("H4").ClearContents
End If

End Sub

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Worksheets("Sheet1").Range("H5") = "CCTV REQUEST"
Else
Worksheets("Sheet1").Range("H5").ClearContents
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then
Worksheets("Sheet1").Range("d2") = "YES"
Else
Worksheets("Sheet1").Range("D2").ClearContents
End If
End Sub

Private Sub CheckBox4_Click()
If CheckBox4.Value = True Then
Worksheets("Sheet1").Range("H6") = "ACTION REQUIRED"
Else
Worksheets("Sheet1").Range("H6").ClearContents
End If
End Sub

Private Sub CheckBox5_Click()

End Sub


Private Sub Close_Form_Click()
Unload data_entry
End Sub


Private Sub OptionButton1_Click()
If OptionButton1.Value = True Then
Worksheets("Sheet1").Range("d2") = "YES"
Else
Worksheets("Sheet1").Range("D2").ClearContents
End If
End Sub

Private Sub OptionButton2_Click()
If OptionButton1.Value = True Then
Worksheets("Sheet1").Range("d2") = "YES"
Else
Worksheets("Sheet1").Range("D2").ClearContents
End If

End Sub




Private Sub TRANSFER_DATA_Click()
With TextBox1
Sheets("sheet1").Range("B10").Value = .Text
.Text = ""
End With
With TextBox2
Sheets("sheet1").Range("B14").Value = .Text
.Text = ""
End With
With TextBox3
Sheets("sheet1").Range("B16").Value = .Text
.Text = ""
End With
With TextBox4
Sheets("sheet1").Range("B19").Value = .Text
.Text = ""
End With
With TextBox5
Sheets("sheet1").Range("g19").Value = .Text
.Text = ""
End With
With TextBox6
Sheets("sheet1").Range("g10").Value = .Text
.Text = ""
End With
With TextBox9
Sheets("sheet1").Range("g14").Value = .Text
.Text = ""
End With
With TextBox7
Sheets("sheet1").Range("a23").Value = .Text
.Text = ""
End With
With TextBox8
Sheets("sheet1").Range("a29").Value = .Text
.Text = ""
End With
With TextBox10
Sheets("sheet1").Range("B2").Value = .Text
.Text = ""
End With
With CheckBox5.Value = True
Sheets("sheet1").Range("g56").Value
.Text = ""
End With



End Sub

sorry for not putting the vba into a code.

where am I putting the code you gave me. I had a ago but I get a debug message and cannot work it out at all.
Is there a way I can send you my file to look at?

I have uploaded the file, my work is using a very very old Microsoft office I think its the 2003 so I have to be careful in the functions I use as not all of them work there


I am trying to get a VBA code to clear the form from the check boxes once I transfer data

Check box 3 no longer exist.
That has been replaced with the sub option.
I kept getting an error message as the cells had been merged.
The cell D2 & E2. The sub now runs in D2 with some simple formatting
I need to view this on my pc. Poor samsung do not let me fully open the file