【こんな場合に使う】
エクセルシートの「名前の定義」をいっきに削除する
【コード】
Sub DeleteLabelNames()
Dim LabelName As Name
For Each LabelName In ActiveWorkbook.Names
LabelName.Delete
Next LabelName
End Sub
【背景】
ふとエクセルシートを見ると、3,000個あまりの名前が定義されていた。
これまで延べ200社程のバリュエーションをする際に、いつも最後に使ったシートを、何度も別名でコピーして上書きしながらリサイクル（正しくはリユース）してきたため、蓄積されてきてしまったらしい。定義した覚えのない「東電値下げ」とか、「cheese_potato_sales」などという名前の定義も見受けられる。手動で一個ずつ削除するのは苦痛なので、マクロでできないかと考えて作成してみた。
こんな感じ
この辺りなんか定義した覚えすらない。
–>> これらが綺麗さっぱり！