VBA - Error in code - Pivot Cache

[candacem]

This is my pivot cache but I keep getting an error message My google cave isn't helping so hoping one of you genius' are able to help.

Thanks in advance!

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sum_Data!R1C1:R5000C19", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="", TableName:="Pivot!R1C1", DefaultVersion:=xlPivotTableVersion14

 

[V_Malkoti]

On which line do you get this error?

 

[V_Malkoti]

My guess is that error is in:

With myPivotTable
	With .PivotFields("Class").Orientation = xlRowField
		With .PivotFields("Jan-18")
			.Orientation = xlDataField
			.Position = 1
			.Functiom = xlSum
			.NumberFormat = "#,##0.00"
		End With
	End With


	With Application
		.ScreenUpdating = True
		.EnableEvents = True
	End With
End With

Change it to (first make a copy of your subroutine for backup):

With myPivotTable
	.PivotFields("Class").Orientation = xlRowField
	With .PivotFields("Jan-18")
		.Orientation = xlDataField
		.Position = 1
		.Functiom = xlSum
		.NumberFormat = "#,##0.00"
	End With
End With
	
With Application
	.ScreenUpdating = True
	.EnableEvents = True
End With