显示未隐藏的工作表的名称到指定单元格

1. 

   Sub ShowTable()
2. 

   Dim Sht As Worksheet, S$
3. 

   For Each Sht In Worksheets
4. 

       If Sht.Visible = xlSheetVisible Then
5. 

           S = S & Sht.Name & "、"
6. 

       End If
7. 

   Next
8. 

   If S <> "" Then MsgBox "没有隐藏的表的名称为：" & Left(S, Len(S) - 1)
9. 

   End Sub

以上代码要结合本馆另一文章：vba表示最后的行号或列号。