My objective is to delete all shapes with duplicate names by name, and keep only one. (so names of remaining shapes are unique.)

Based on the below link, names in Excel VBA is not unique.
https://www.wiseowl.co.uk/vba-macros/guides/shapes/shapes/#:~:text=Shape%20names%20are%20a%20bit,that%20you’ve%20created%20programmatically.

I checked below VBA code, if there are multiple CheckBox1 in ActiveSheet, only 1 CheckBox1 would be deleted.
ThisWorkbook.ActiveSheet.Shapes.Range(Array("CheckBox1")).Delete

How can I delete all CheckBox1 and keep only 1? Thank you!