I have an issue.I have a checkbox and i want this checkbox to be copied and pasted it with the formula which it contain.I use this code 

Private Sub CommandButton1_Click()


Sheets("sheet2").OLEObjects("CheckBox2").Copy

Dim wks As Worksheet
Set wks = Sheets("sheet1")

Dim cb As OLEObject, i As Integer


i = 9
For Each cb In wks.OLEObjects
    If InStr(1, cb.Name, "CheckBox") Then i = i + 13

Next

Sheets("sheet2").Range("V" & i).PasteSpecial

End Sub
The above code only copy paste the checkbox but without the formula which checkbox contain.I want a code to copy paste the checkbox and the formula many times.

Thanks