please suggest....pivot table not getting created

[Guest]

Hi..
i have posted the same in progrmaming section also...
ia mworking on this and unable to resolve a already
running macro is giving sucha problem..any help would be
higly appreciated.

I am creating a pivot table in a new sheet. and now the
pivot table in the new sheet is not getting created
somehow (#$%^&) and its processing on thesame sheet from
whihc it has to take pivot values and gives a error "do u
want to replace of destination cells in RawData?"

here is the piece of code where i create a pivot table in
a new sheet. the new sheet gets created but somehow the
pivot is not being created ...!
Set NewSheet = Worksheets.Add
(Before:=ActiveWorkbook.Worksheets.Item(1))
NewSheet.Name = "test"
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,
SourceData:= _
rawDataWorksheetName & "!R1C1:R" & LastCellNum
& "C" & CU).CreatePivotTable TableDestination:="",
TableName:= _
"PivotTable5",
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard
TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True

With ActiveSheet.PivotTables("PivotTable5").PivotFields
("Test_Loc")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields
("Package")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("PivotTable5").PivotFields
("PL")
.Orientation = xlRowField
.Position = 3
End With
ActiveSheet.PivotTables("PivotTable5").AddDataField
ActiveSheet.PivotTables( _
"PivotTable5").PivotFields(trapCumVal), "Sum of "
& trapCumVal, xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Range("B6").Select
ActiveSheet.PivotTables("PivotTable5").PivotFields
("Package").Subtotals = Array _
(False, False, False, False, False, False, False,
False, False, False, False, False)

Range("A81").Select
ActiveSheet.PivotTables("PivotTable5").PivotFields
("Test_Loc").Subtotals = _
Array(False, False, False, False, False, False,
False, False, False, False, False, False)

ActiveSheet.Select
sheetname = "MSP"
please do suggest
thanks

..

 

[Dave Peterson]

And anyonymous found his/her problem in that group.