Delete A Range Of Objects

Hi,

I've created a worksheet and for some reason, additional objects have been added.

Rather than selecting all objects and deleting (don't want to do this as took me a long time added macros to current buttons).

I would like to delete the objects called Button 123 to Button 1296.

Still learning VB and tried the following which cant be far away?

Sub Delete()

    Dim v As Variant
    
    For i = 123 To 1296
    ActiveSheet.Shapes.Range("Button " & i).Delete = Sub Delete
Next i

End Sub

Excellent, works a charm.

Thankyou