名前の定義で非表示になっている名前を全て消します。 Sub Sample99() Dim N As Name For Each N In Names If N.Visible = False Then N.Delete End If Next N End Sub