エクセルマクロで別シートのセル範囲選択

Question

Excelマクロで別シートのセル範囲選択についてご教示ください。

Sub cellselect()
'"sheet1"で実行

'"sheet2"のD1～D10セルを選択
Application.Goto Sheets("sheet2").Range("D1:D10").Select

'"sheet2"のE1～E10セルを選択
Application.Goto Sheets("sheet2").Range("E1:E10").Select

'Forを使用し、"sheet2"のD1～D10セルを選択後、E1～E10セルを選択
For e = 4 To 5
Application.Goto Sheets("sheet2").Range(Cells(1, e), Cells(10, e)).Select
Next

End Sub

"sheet1"で上記マクロを実行したところ、
直接範囲指定した場合は正しく「D1～D10」、「E1～E10」の範囲選択をしますが、
For文でセル範囲選択ができません。

別シートのセルを範囲選択をする場合、変数は使用できないのでしょうか。

For文の処理でセルの範囲選択をするための処理をご教示いただけますと幸いです。

よろしくお願いいたします。

Answer 1

単純にCellsと書いた場合、Sheet1で実行していればSheet1のCellsを指すので、Sheet2のRangeを指定しようとしているのにSheet1を指しているのでエラーになっているはずです。
修正するのであれば次のようになるかと。

For e = 4 To 5
    Application.Goto Sheets("sheet2").Range(Sheets("sheet2").Cells(1, e), Sheets("sheet2").Cells(10, e))
Next

長ったらしいのでWithを使うなどするとよいでしょう。

With Sheets("sheet2")
    For e = 4 To 5
        Application.Goto .Range(.Cells(1, e), .Cells(10, e))
    Next
End With

ちなみにSelectが付加されていますが、エラーになりません？
当方Excel2013ですがエラーになるので、上記コードでは削除しています。

Comments

[54RM]

回答ありがとうございます。
ご教示いただいた方法で解決しました。
selectはResume Nextをコード内に入れていたため、エラーは出ていませんでした。
コメントアウトしたら、selectでエラー出力されました。