Макрос "Удалить столбец" для Excel работает поэтапно, но не при назначении для формы "кнопки"

Question

Вот код, который я использую, который хорошо работает при пошаговом выполнении. Когда я пытаюсь сделать его «квалифицированным», используя определения книги и листа в верхней части кода, это не работает. Когда я назначаю макрос фигуре в Excel (кнопка «удалить»), он не работает и выдает ошибку времени выполнения 1004. Я прикрепил код, который использую.

  'Set wscopy = Workbooks("5 Master Enterprise Mfg Cost Forecast  w Overhead Margin and Crossover_COPY then SAVE.xlsm").Worksheets("Output w Printer")
  'Set wsDest = Workbooks("5 Master Enterprise Mfg Cost Forecast  w Overhead Margin and Crossover_COPY then SAVE.xlsm").Worksheets("Output w Printer")
  'Set wsDest3 = Workbooks("5 Master Enterprise Mfg Cost Forecast  w Overhead Margin and Crossover_COPY then SAVE.xlsm").Worksheets("CompTable")

Dim ActiveShape As Shape
Dim UserSelection As Variant
Dim col, row

    Set UserSelection = ActiveWindow.Selection

    Set ActiveShape = ActiveSheet.Shapes(UserSelection.Name)

    col = Split(ActiveShape.TopLeftCell.Address, "$")(1)
    Columns(col).EntireColumn.Delete

End Sub```