生成数据透视表计算字段的VBA错误

Question

我录制了一个宏来生成用于生成带有计算字段的数据透视表的代码。但是，当我尝试播放宏时，我得到运行时错误1004：应用程序定义或对象定义的错误。相关代码是：

ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
    "PivotTable5").PivotFields("Income"), "Sum of Income", xlSum
ActiveSheet.PivotTables("PivotTable5").AddDataField ActiveSheet.PivotTables( _
    "PivotTable5").PivotFields("Return"), "Sum of Return", xlSum
Range("D25").Select
ActiveSheet.PivotTables("PivotTable5").CalculatedFields.Add "WtdRet", _
    "='W-Ret' /Value", True

最后一个语句导致错误。删除介入的Range Select语句无效。任何想法都非常感激。