Pivot Table macro translation

[glamb]

OK, I'm stuck again. Have been searching all over the internet and can't figure this one out.

With ActiveSheet.PivotTables("PivotTable1")
.InGridDropZones = True
.RowAxisLayout xlTabularRow
End With

Apparently, the second line has to do with Microsoft.Office.Interop.Excel, so I don't know if it can be translated.
I just want to make a classic style pivot table. Again, any help appreciated.

 

[TamarGranor]

From Excel's Help, it looks like RowAxisLayout is a method, so you need to pass the appropriate parameter. xlTabularRow is a constant with a value of 1. Putting that together, looks like you need:

With ActiveSheet.PivotTables("PivotTable1")
        .InGridDropZones = .T.
        .RowAxisLayout(1)
EndWith

Tamar