Delete check box from cell

S

Srini

How to delete a checkbox from a cell. I copied multiple rows of information
from the extranet with each row having checkboxes, but I need to remove them
now. Please help.
 
D

Daniel.C

To remove all checkboxes, execute the following macro :

Sub test()
Dim sh As Shape
On Error Resume Next
For Each sh In ActiveSheet.Shapes
If sh.FormControlType = xlCheckBox Then
sh.Delete
ElseIf Left(sh.OLEFormat.progID, 14) = "Forms.Checkbox" Then
End If
Next
End Sub

HTH
Daniel
 
Top