Help with VBA createpivottable code!!!

[aallaman]

Hi Everyone,

I am working with the code below but am getting an "Invaild procedure call or argument" error on the code in red.

I have tried everything I know with no luck. Can anyone help?????

Thanks

Allen



Sub ErrorReportingCreatePivotTableTake1()
'
' ErrorReportingCreatePivotTableTake1 Macro
'
'

Dim WSD As Worksheet
Dim PTCache As PivotCache
Dim PT As PivotTable
Dim PRange As Range
Dim FinalRow As Long
Set WSD = Worksheets("Error_Reporting")

' Define input area and set up a Pivot Cache

FinalRow = WSD.Cells(Application.Rows.Count, 1).End(xlUp).Row
FinalCol = WSD.Cells(1, Application.Columns.Count). _
End(xlToLeft).Column
Set PRange = WSD.Cells(1, 1).Resize(FinalRow, FinalCol)
Set PTCache = ActiveWorkbook.PivotCaches.Add(SourceType:= _
xlDatabase, SourceData:=PRange.Address)

' Create the Pivot Table from the Pivot Cache

Sheets.Add
Set PT = PTCache.CreatePivotTable(TableDestination:="Sheet10!R3C1", TableName:="PivotTable3", _
DefaultVersion:=xlPivotTableVersion14)

End Sub

 

[texasalynn]

does that sheet name (sheet10) exist in your workbook?
Have you tried to manual create the pivot table with the same?

 

[aallaman]

Hey texasalynn

The sheet name was just an example, but using the actual sheet name didn't work either. I found a workaround whereI defined the target sheet name as a variable and I also had to take off the defaultformat variable. Once I did those two things it worked ok.

I have another question about using a conditional pivot filter if you can help out. http://www.mrexcel.com/forum/showthread.php?p=2668092#post2668092

Thanks!

Allen