#include excel10.h .... ..... oExcel.selection.PasteSpecial() DIMENSION la1[1] la1[1]= 5 &&&& subtotla column 5 oexcel.Subtotal(1, xlSum,@la1,-1,-1,-1) oExcel.ActiveSheet.Outline.ShowLevels(3)