VBA从另一个按钮单击创建一个按钮（OLE对象）

Question

我正在尝试在某些文本的单元格上方放置一个按钮。它给我一个错误Run-time error '1004': Unable to get the Add property of the OLEObjects class .Add属性可以是任何东西，它仍然会返回我在错误中试图做的任何事情。当我实际上试图添加和定义按钮的名称和位置时，它卡住了。

我很烦恼使用ActiveSheet，工作表名称以及使用工作表索引号来引用要放置的工作表的几种方法

Sheets("Final Budget").Select

 Dim NewBut As Variant
 Range("C1").Select
 Selection.End(xlDown).Select
 NewBut = Cells(Selection.Row + 1, Selection.Column).Address(0, 0)
 Range(NewBut).Value = TextBox1.Value
 With Worksheets(4).OLEObjects.Add
    .Name = TextBox1.Value
    .Top = NewBut.Top
    .Left = NewBut.Left
    .Width = NewBut.Width
    .Height = NewBut.Height
    End With