How do you make if True, Display the value of Sheet2 Cell B4? Below will not work

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

Thank you