Workbook.Sheets[1].Outline.SummaryColumn := xlRight; Workbook.Sheets[1].Outline.SummaryRow := xlBelow;