运行时EXCEL删除按钮

Question

我有一个模板excel表，其中包含一个将所有文本更改为大写的宏：

Sub MyUpperCase()

Application.ScreenUpdating = False

Dim cell As Range
For Each cell In Range("$A$1:" & Range("$A$1").SpecialCells(xlLastCell).Address)
    If Len(cell) > 0 Then cell = UCase(cell)
Next cell

Application.ScreenUpdating = True
ActiveSheet.Buttons("UPPERCASE").Delete

End Sub

我需要按钮一旦运行就删除自己但是当我运行下面时得到错误400？按钮的名称也是UPPERCASE。