in design mode if you right click and click view code and under
checkboxclick wirte your code in your case
range(....).copy destination:=range(...)

e.g.

Private Sub CheckBox1_Click()
Range("c4:c15").Copy Destination:=Range("d1")
End Sub



"madsenfence" wrote in message
...
On a bid sheet I want to put in a check box and when it is checked, have
the
data move to another column automatically.