>>210
ありがとう。
実際やってみたらA3とB3に1が出力されて、
オブジェクト変数またはWithブロック変数が設定されていません
と言われました。どうしてだろ。。。

>>211
はい、幅優先探索です。
ありがとうございます。transverseについてちょっと調べてみます。