本示例清除工作表 Sheet1 上单元格区域 A7:B15 的分级显示。

ActiveWorkbook.Worksheets(1).Range("A7:B15").ClearOutline