运行时错误'5'无效的过程调用或参数

Question

我在这部分代码中遇到了一个可怕的问题……我到处都检查过，寻找了很多选项，但似乎无济于事……有人知道为什么我在这里继续收到错误吗？我正在学习其中一门视频课程，即使代码看起来完全一样（除了源数据部分），我仍然可以理解它。 我在设置对象变量“ pt”时遇到了运行时错误

Sub CreatePivotTableandPivotCache()

Dim pc As PivotCache
Dim pt As PivotTable


Set pc = ThisWorkbook.PivotCaches.Create( _
    SourceType:=xlDatabase, _
    SourceData:=Sheet1.Name & "!" & Worksheets("Sheet1").Range("A1").CurrentRegion.Address, _
    Version:=xlPivotTableVersion15)

Worksheets.Add
Range("A3").Select

Set pt = pc.CreatePivotTable( _
    TableDestination:=ActiveCell, _
    TableName:="KPI")

End Sub