如何修复我的宏以基于表格创建Excel选项卡

Question

我创建了一个宏来复制模板宏，次数与表中的行数相同。

但是我遇到以下错误：

  

错误429 ActiveX组件无法创建对象。

一年前创建时它运行良好

出现问题的代码部分是从lastcell开始的第一行（请参见下面的代码）

有人知道为什么它不起作用吗？

用Google搜索的答案，但找不到为什么它不起作用。

也许与我在较旧的Office版本（2013）中创建宏的事实有关，然后我现在正在工作（2016）

Sub Aanmaaktabbladen()
lastcell = ThisWorkbook.Worksheets("Bonussen").Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To lastcell

With ThisWorkbook

newname = ThisWorkbook.Worksheets("Bonussen").Cells(i, 1).Value

Set wsVOORBEELD = ActiveSheet
wsVOORBEELD.Copy After:=Sheets(Sheets.Count)

ActiveSheet.Name = newname

End With
Next
ThisWorkbook.Worksheets("Bonussen").Activate
ThisWorkbook.Worksheets("Bonussen").Cells(1, 1).Select

End Sub