Entonces si quisiera borrar un "Control ?"

Con Realcion a esta respuesta:
Con
Dim sh As Shape
If ActiveSheet.shapes.Count > 0 Then
For Each sh In ActiveSheet.shapes
ActiveSheet.shapes(del).Select
Selection.Delete
Next sh
End If
o en otro caso.
Dim sh As Shape
If ActiveSheet.shapes.Count > 0 Then
For Each sh In ActiveSheet.shapes
j = ActiveSheet.shapes.Count
ActiveSheet.shapes(j).Select
Selection.Delete
Next sh
End If
Me arroja error, cuando toma el valor de "Control ?" (el valor que sea =?).