کد VBA چک باکس اکسل

Sub addchekboxes()
On Error Resume Next
Dim c As Range, myrange As Range
Set myrange = Selection
For Each c In myrange.Cells
ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select
With Selection
.linkecell = c.Address
.Characters.Text = “”
.Name = c.Address
End With
c.Select
Next
myrange.Select
End Sub