Problem with Check Box Macro

[RichTea88]

Hey guys,

Having a wee problem with this code, strange this is that it was working before, and I'm not getting any errors now, but it doesn't work.
Pretty much just want to check the box and have 'Approved' appear in that cell.
I wrote another code for a seperate checkbox pretty much the same but it posted 'Review' in the same cell, and thats when it stopped working, but I've since deleted that macro but still cant get this one to run. Would I have to clear R39 at the beginning each time I run one of these macros? Can anyone spot whats wrong with this code?
Many thanks for any advice in advance!

Private Sub CheckBox3_Click()
Dim WS As Worksheet

Set WS = ThisWorkbook.Sheets("Transmittal Sheet")
    With WS
        If CheckBox1.Value = True Then
            .Cells(39, "R") = "Approval"
        End If
    End With
End Sub

[RichTea88]

Actually, I figured it out.

[arlu1201]

If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit.

[RichTea88]

Haha, okay but the solution was that I'm an Idiot who was trying to be speedy whilst doing coding.

I copied and pasted

If CheckBox1.Value = True Then

with the rest of the code.

Forgot to change it to checkbox2, simple mistake!