strange problem subtotal

[hans]

I use the following code:
Selection.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(4, 5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(4, 5),
_
Replace:=False, PageBreaks:=False, SummaryBelowData:=True

Collum 7 cantains the name of the persons
Collum 8 contains the tpe of expences they make

This works correct for the first person
It gifs the subtotal of the last expenses type and then the total of the
person of all expenses

For all later persons is goes wrong
Now it gifs (after the last expense)
The total of all expenses of this person
and on the next line it shows the total of last expenses type
(It is swapt)

What is going wrong?

Greetings Hans

PS i use excel 2003

[Fredrik Wahlgren]

"hans" <hans@hotmail.com> wrote in message
news:u0hN2K0OFHA.1392@TK2MSFTNGP10.phx.gbl...
> I use the following code:
> Selection.Subtotal GroupBy:=7, Function:=xlSum, TotalList:=Array(4, 5),
_
> Replace:=True, PageBreaks:=False, SummaryBelowData:=True
> Selection.Subtotal GroupBy:=8, Function:=xlSum, TotalList:=Array(4,
5),
> _
> Replace:=False, PageBreaks:=False, SummaryBelowData:=True
>
> Collum 7 cantains the name of the persons
> Collum 8 contains the tpe of expences they make
>
> This works correct for the first person
> It gifs the subtotal of the last expenses type and then the total of the
> person of all expenses
>
> For all later persons is goes wrong
> Now it gifs (after the last expense)
> The total of all expenses of this person
> and on the next line it shows the total of last expenses type
> (It is swapt)
>
> What is going wrong?
>
> Greetings Hans
>
> PS i use excel 2003
>
>

I think this article will help
http://support.microsoft.com/kb/831824

/Fredrik