範囲指定の仕方

いつも大変お世話になっております。

Dim myRange As Range
Dim s As Long
ｓ= Sheets("検索キーワード").Cells(Rows.Count, 1).End(xlUp).Row
Set myRange = Sheets("検索キーワード").Range(Cells(2, 13), Cells(s, 13))

3行目でエラーが出ます。
この場合は、Set myRange = Sheets("検索キーワード").Range("M2:M1048576")としなくてはいけないのでしょうか？

どなたか教示いただければ幸いです。

No.1 回答者： tatsu99 回答日時： 2017/06/18 09:07

「検索キーワード」というシートがないからエラーになっていると思われます。

Sheet1の名前を「検索キーワード」に替えてみたらどうなりますか。

この回答へのお礼

回答ありがとうございます！

原則として一番に回答して頂いた方にベストアンサーにしているですが、今回は2番目の方の回答がビンゴでしたのですみません。
お忙しい中、ありがとうございました。

お礼日時：2017/06/18 10:13

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2017/06/18 09:53

シート名があっていないのが原因かも知れないです。

けど、

＞Set myRange = Sheets("検索キーワード").Range(Cells(2, 13), Cells(s, 13))

この書き方も『該当するシートがActiveなら良いですが、そうでなければ意図しない動きをする』可能性はありますね。

With Sheet("検索キーワード")
Set myRange = .Range(.Cells(2, 13), .Cells(s, 13))
End With

とCellsも『どのシートのセルなのか？』を明確にするために、先頭に . をつけられるWith～End Withを
使うように慣れてはいかがですかね。

この回答へのお礼

シートを明確にしたら無事解決しました。
ありがとうございます。
回答ビンゴでした。

お礼日時：2017/06/18 10:10