我创建了一个宏来复制模板宏，次数与表中的行数相同。
但是我遇到以下错误：
错误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