Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then ActiveSheet.Range("A2").Value =
"Sheet2!$B$4"
If CheckBox1.Value = False Then ActiveSheet.Range("A2") = ""
End Sub
or
Private Sub CheckBox1_Click()
With CheckBox1
If .Value = True Then ActiveSheet.Range("A2").Value = "Sheet2!$B$4"
If .Value = False Then ActiveSheet.Range("A2") = ""
End With
End Sub
---
Message posted from
http://www.ExcelForum.com/