Excel 表示されない名前定義を削除する
[Excel]
対処法
- マクロを実行後、「挿入」→「名前」→「定義」を選択し、名前の定義ダイアログを表示
- 不要なものは削除
Public Sub DeleteNames() Dim wName As Object Dim wCnt As Long For Each wName In Names If wName.Visible = False Then wName.Visible = True wCnt = wCnt + 1 End If Next If wCnt <> 0 Then MsgBox wCnt & "個の名前定義が見つかりました。",vbInformation Else MsgBox "非表示の名前定義はありません。",vbExclamation End If End Sub
YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto
Copyright© 矢木 浩人 All Rights Reserved.