Checkbox VB code isnt performing properly

I have a checkbox (activeX) that, when checked, should copy the data from two cells and paste them in two other cells. If the box is unchecked it clears the destination cells. When I click on it, it looks like it runs, the destination cells are briefly highlighted but nothing happens. I am getting no errors and debugging shows no problems. Can someone please help?

Private Sub CheckBox1_Click()
If ActiveSheet.Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then
Range("Q2").Select
Selection.Copy
Range("H6").Select
ActiveSheet.Paste
Range("R2").Select
Selection.Copy
Range("I6").Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.CutCopyMode = True
Else
Range("H6").Select
Selection.Cut
Range("I6").Select
Selection.Cut
Application.CutCopyMode = True

End If

End Sub

indent for readablility
and the action is not cut, but clear

Please Login or Register  to view this content.

Hey thanks for the reply, I entered that code but getting basically the same thing. It isnt copying the data when the box is checked.