列出Excel中所有sheet页名

前提：

     excel里sheet页特别多

     鼠标放到sheet页上,右键"查看代码",弹出框,选中相应的sheet页或thisworkbook,将下述代码复制进去

     sub listsht()
        dim i&
          for i=1 to sheets.count
           cells(i,1)=sheets(i).name
      next
     end sub

所有的sheet页名即显示 在选中的sheet页A列上，thisworkbook会显示在最后一个sheet页A列上！

thisworkbook