Deleting Checkboxes

[rpriestley]

I am using this code to insert checkboxes which works find.

Option Explicit
Sub insertCheckboxes()

Dim myBox As CheckBox
Dim myCell As Range

Dim cellRange As String
Dim cboxLabel As String
Dim linkedColumn As String

cellRange = InputBox(Prompt:="", _
Title:="")

linkedColumn = InputBox(Prompt:="", _
Title:="Linked Column")

cboxLabel = InputBox(Prompt:="Checkbox Label", _
Title:="Checkbox Label")

With ActiveSheet
For Each myCell In .Range(cellRange).Cells
With myCell
Set myBox = .Parent.CheckBoxes.Add(Top:=.Top, _
Width:=.Width, Left:=.Left, Height:=.Height)

With myBox
.LinkedCell = linkedColumn & myCell.Row
.Caption = cboxLabel
.Name = "checkbox_" & myCell.Address(0, 0)
End With

.NumberFormat = ";;;"
End With

Next myCell
End With
End Sub



I am also trying to use this code to dete checkboxes but it does not seem to run properly

Sub deleteCheckboxes()

Dim myBox As CheckBox
Dim myCell As Range

Dim cellRange As String

cellRange = InputBox(Prompt:=”CellRange”, _
Title:=”CellRange”)

With ActiveSheet
For Each myCell In .Range(cellRange).Cells
With myCell
ActiveSheet.Shapes(“checkbox_” & myCell.Address(0, 0)).Select
Selection.Delete
End With
Next myCell
End With
End Sub

The code seems to hang at this line

ActiveSheet.Shapes(“checkbox_” & myCell.Address(0, 0)).Select
Selection.Delete


Thanks