OnClick Sub Deletion from VBE

Hello

I have the following code in Sheet1:

Sub Some_Name()

        [Some Code ...]

End Sub

and I have a button in a form, and when I click on it I want it to delete that Sub (the Some_Name()) entirely from Sheet1 VBE

What's the code for that?