Range.AutoOutline (Excel)

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.

Worksheets("Sheet1").Range("A1:G37").AutoOutline