excel vba 如何彻底删除sheet1中的所有按钮

Question

由于来回插入和删除按钮，现在插入按钮时已经到了“按钮56_Click”。如何彻底删除前面55个按钮？
另：如何按照按钮的名称删除按钮？
例如按钮名字叫“计算”，
ActiveSheet.Shapes.Range(Array("Button 10")).Delete中的“10”如何换成“计算”

Answer 1

可用下面的语句。如果要按名称删除，可以加一个判断语句。
Dim objShp As Object
For Each objShp In ActiveSheet.Shapes
objShp.Delete
Next追问

Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=AND($A4=""已完成"",$B4=""无误"")"
请问，这里的$CD4和$CG4怎样才能替换成columns（1）和columns（2）