I have had four suggestions on how to make this work and so far none will work. Now the True Statement has something wrong.

Can anyone help?

Private Sub CheckBox1_Click()
With CheckBox1
If .Value = True Then
ActiveSheet.Range("A2").Value = Range("Sheet2!$B$4").Value
Else
If .Value = False Then
ActiveSheet.Range("A2") = ""
End If
End If
End With
End Sub

Thank You very much