J
John Smith
Hi again
Select that checkbox and in the name box above cell A1 give it a name.I called
it "stock" in the macro. You need to change it to your choice.
This way it will be unique. then this will delete all but that one.
Sub saveonebox()
Dim myCBX As CheckBox
For Each myCBX In ActiveSheet.CheckBoxes
If Not myCBX.Name = "stock" Then
myCBX.Delete
End If
Next myCBX
End Sub
How would I protect that single cell, since I need to delete
everything else on the page every time it gets used?- Hide quoted text -
- Show quoted text -
I can't seem to get it to work - it still deletes the checkbox in A1.