範囲を超えてforループを実行するとコンパイルエラーが発生する

Question

ダイナミックレンジを取得し、範囲の各セルの値を印刷しようとする次のコードがあります。

私はそれを実行すると、コンパイルエラーが発生します...何が問題になるのでしょうか？ （Setを使用して.Select除く）

Set x = Range(Selection, Selection.End(xlDown)) 

とNextまたはNext cellの代わりNext x

Answer 1

はこれを試してみてください。次のセルが必要で、次のセルは必要ありません。楽しい！ ：D

Answer 2

Option Explicit 

Sub Macro3() 

    Dim x  As Range 
    Dim cell As Range 


    Range("D10").Select 

    Set x = Range(Selection, Selection.End(xlDown)).Select 
    For Each cell In x 
     MsgBox (cell) 
    Next cell 

End Sub 

こんにちは：