选中一个工作表，及时将第一页的组界别调整到这个工作表某一个格子的值（级数）

我爱lisp

Sub Macro9()
'
' Macro9 Macro
' 宏由 王雷 录制，时间: 2013-12-30
'
'
    Sheets("图-总建设投资对比").Select //注释：选中的一个表
    Range("C48").Select    //注释：选中工作簿第一个表，这个表是基础表，带组级的
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    ActiveSheet.Outline.ShowLevels RowLevels:=5 //注释：将这个组级数调整为5,5最好放到图1  的c23格
     Sheets("图-总建设投资对比").Select //注释：选中的一个表

End Sub
这是大体过程，但是不熟悉语法，请高手给予调试