运行时错误5但仅适用于一项数据

Question

我有一些代码用于填充数据透视图并创建附带pdf的电子邮件。

i = 4 
Do While Sheets("Dunning").Cells(i, 1).Value <> "Grand Total" 
    Sheets("Overdue Notification Template").Select 
    ActiveSheet.PivotTables("Overdue Template").PivotFields("Policy Id").CurrentPage = Worksheets("Dunning").Cells(i, 1).Value 

它导致问题的最后一行 - 它运行前8个数据项然后给出运行时错误5.如果我在代码中添加On error resume行，它会忽略这一行数据项并完全运行其余部分。

我已经尝试更改数据项，看看我是否可以发现数据中的错误，但列表中的任何其他项目都没有任何不同。

有没有人知道为什么会这样？我猜测它不是代码，因为它对每个其他数据项都运行良好。

提前致谢