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

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表示最后的行号或列号。