part of the VBA code. Not indispensable thou. The following would accomplish the same thing:

$selection->Subtotal->(GroupBy => 1, Function => xlCount, TotalList =>
+ 3, Replace => "True", PageBreaks => "True", SummaryBelowDate => "Tru
+e");
[download]

And now the error message is: Win32::OLE(0.1701) error 0x8002000f: "Parameter not optional" in METHOD/PROPERTYGET "Subtotal"