名前付き範囲の名前の一覧表示

Question

次のコードは正常に動作しますが、期待どおりに動作しません。範囲をテーブルに変えて名前を変更しましたが、ループには入りません。私はテーブルにそれを回すことなく別の名前付き範囲を追加し、それは動作します。

Option Explicit 

Sub GetNamesFromNamedRanges() 

Dim MyName As Name 

For Each MyName In ActiveWorkbook.Names 
    Debug.Print MyName.Name, MyName.RefersTo 
Next MyName 

End Sub 

UPDATE

私は私が間違って行っていたものを実現しています。予想される結果が得られなかったのは、名前のマネージャーでテーブルの名前を変更したためですが、まだ新しい名前のテーブルのままでした。したがって、For Each MyName In ActiveWorkbook.Namesはそれを印刷しませんでした。ネーム・マネージャー以外に新しい名前に変更したとき、それは期待どおりに機能しました。スキップが指摘するように、コードが作業を行う

Answer 1

：

イミディエイトウィンドウが表示されていることを確認してください。