修改Excel数据透视表而不知道VBA中的pivotTable名称

Question

我想使用以下变量代替“PivotTable1”。

With ActiveSheet.PivotTables("PivotTable1").PivotFields("row1")
    .Orientation = xlRowField
    .Position = 1
End With

我通过添加表名的提示来解决这个问题，就像这个

一样

pivotName = "PivotTable" + InputBox("PivotTable#?", "Pivot Name", "1")
ActiveSheet.PivotTables(pivotName).PivotSelect 

但是想减少一步就能让它更清洁。有没有办法动态填充pivotName？