Добрый день всем!
Программно создаю сводную таблицу, источник данных - лист Excel

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Общий_данные!R1C1:R163C10").CreatePivotTable TableDestination:="", _
TableName:="Общий", DefaultVersion:=xlPivotTableVersion10

'Sheets(SheetName).Delete
'ActiveSheet.Name = Replace(SheetName, "_данные", "")

ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
Application.Run "OnGenericSetSheetActive"

With ActiveSheet.PivotTables("Общий").PivotFields("Координатор")
.Orientation = xlRowField
.Position = 1
End With

На инструкции With ActiveSheet.PivotTables("Общий").PivotFields("Координатор") выскакивает ошибка Run-Time Eerror 1004: "Невозможно получить свойство PivotTables класса WorkSheet", хотя большинство коды было записано макросом. Не пойму в чём дело... Может кто подскажет. Заранее спасибо!

Версия 2003 SP2
xlPivotTableVersion10 Excel сам в записи макроса написал

2 ffffffffffffffffffffffffff: Да, действительно, я обращался к сводной как PivotTables("Общий"), а называлась она по другому! Спасибо! :)