Skip to content

Instantly share code, notes, and snippets.

@kshimi

kshimi/VisibleNames

Created December 25, 2013 06:56
Show Gist options
  • Save kshimi/0d1aa0e5f9481a42a812 to your computer and use it in GitHub Desktop.
Save kshimi/0d1aa0e5f9481a42a812 to your computer and use it in GitHub Desktop.
Download ZIP
Excelで非表示になっている「名前」を表示する
Raw
VisibleNames
Public Sub VisibleNames()
Dim name As Object
For Each name In Names
If name.Visible = False Then
name.Visible = True
End If
Next
MsgBox "すべての名前の定義を表示しました。", vbOKOnly
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment