Try (if you don't have other lines)
For Each sh In myDocument.Shapes
If sh.Type = msoLine Then
sh.Delete
End If
Nex

Also at the time of adding the sh.ape store its Index ( by using
shapes.count property and then use that index to delete...

"Memphis" wrote:

Thank you Sheelo,
But i do have including the CheckBox many other option buttons created from
the Control Toolbox. i ran a test and it deletes the existing option buttons
and the chkboxE4NA.
I also have grouped many of the option buttons since they are Yes and No
answers.

What to do?

Thanks

"Sheeloo" wrote:

If there is not other shape on the sheets then add similar code to the
uncheck event

For Each shp In ActiveSheet.Shapes
shp.Delete
Next