Range.AutoOutline (Excel)

Cria tópicos automaticamente para o intervalo especificado. Se o intervalo for uma única célula, o Microsoft Excel criará tópicos para a planilha inteira. Os novos tópicos substituem quaisquer tópicos existentes.

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