Range.AutoOutline (Excel)

Crea automáticamente un esquema en el rango especificado.

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