>Hello all
>
>Excel does not support a collections, with pivot table was the error message for the codes below.
>
>oPivotTable.PivotFields("position").LayoutBlankLine(1) = .T.
>oPivotTable.PivotFields("position").LayoutBlankLine(1) = .F.
>
>i just wanted to remove Insert Blank line after each item. how to do it , thanks for any help

Akhan,
Default is 'No blank line'.
oPivotTable.PivotFields("position").LayoutBlankLine = .F.
Cetin