Automatically creates an outline for the specified range. If the range is a single cell, Microsoft Excel creates an outline for the entire sheet. The new outline replaces any existing outline.
expression.AutoOutline
expression Required. An expression that returns a Range object.
Example
This example creates an outline for the range A1:G37 on Sheet1. The range must contain either a summary row or a summary column.
Worksheets("Sheet1").Range("A1:G37").AutoOutline