Here it is again. I've run into this problem before, but my usual
solutions aren't working. When the code closes Excel, it remains in
the processes list. Can anybody help me figure our why the code below
doesn't close Excel properly? Excel closes fine if I take out the
Pivot table code, so the problem is there.

Thanks in advance!

Jason

--------
Dim objXL, objActiveWkb As Object

Set objXL = CreateObject("Excel.Application")

objXL.Application.Visible = True
objXL.Application.Workbooks.Add

'Create Pivot With Data Already In Excel

objXL.Application.ActiveWorkbook.PivotCaches.Add(S ourceType:=xlDatabase,
_ SourceData:= "'Sheet 2'!R1C1:R2C3").CreatePivotTable _
TableDestination:=Range("A1"),TableName:="PivotTab le1"

objXL.Application.ActiveSheet.PivotTables("PivotTa ble1").ColumnGrand =
False
objXL.Application.ActiveSheet.PivotTables("PivotTa ble1").RowGrand =
False
objXL.Application.ActiveSheet.PivotTables("PivotTa ble1").SmallGrid =
False

objXL.Application.ActiveSheet.PivotTables("PivotTa ble1").AddFields _
RowFields:="Data", ColumnFields:="Year"

objXL.Application.ActiveSheet.PivotTables("PivotTa ble1").PivotFields _
("PLTHT_in").Orientation = xlDataField

objXL.Application.ActiveSheet.PivotTables("PivotTa ble1").PivotFields _
("EARHT_in").Orientation = xlDataField

'Save and Close
objXL.Application.ActiveWorkbook.SaveAs "C:\test.xls"
objXL.Application.ActiveWorkbook.Close
objXL.Application.Quit
Set objXL = Nothing