[已解决]【求助】怎么获取选择的多个表名称

xdwy

如图所示，我选择了4个表格（1月，2月，3月，7月）

请教怎么用语句得到被选择的表的全部名称（即：1月，2月，3月，7月）

最佳答案

月排行榜 / 总排行榜

ghostjiao

2014-9-10 20:55

1. Sub demo()
   
2.     Dim sh As Worksheet
   
3.     For Each sh In ActiveWindow.SelectedSheets
   
4.         MsgBox sh.Name
   
5.     Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

ghostjiao

1. Sub demo()
   
2.     Dim sh As Worksheet
   
3.     For Each sh In ActiveWindow.SelectedSheets
   
4.         MsgBox sh.Name
   
5.     Next
   
6. End Sub
   

复制代码