Error in macro coding for Creating pivot

Hey!

I am getting an error while running the code mentioned below to create a dynamic pivot....

Let me know if anyone can help me....

<code>
Range("A1").Select
ActiveWorkbook.Names.Add Name:="Pivot", RefersToR1C1:= _
"=OFFSET(Data!R1C1,0,0,COUNTA(Data!C1),COUNTA(Data!R1))"
ActiveWorkbook.Names("Pivot").Comment = ""
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Pivot", Version:=xlPivotTableVersion14).CreatePivotTable TableDestination _
:="Audits!R3C1", TableName:="PivotTable2", DefaultVersion:= _
xlPivotTableVersion14
Sheets("Audits").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
"PivotTable2").PivotFields("Report ID"), "Count of Report ID", xlCount
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Business Unit")
.Orientation = xlRowField
.Position = 1
End With
End Sub
</code>

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)