VBAにてボタンを押したら、指定した複数セルに✔が入るようにしたい

エクセル2010使用。
VBAを触るのはほぼ初めてで見よう見まねで作成しているような状態です。

--------------------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()

Range("J8:J15,J17:J19,J21:J23,J25:J28,J30:J32,J34:J39,J41:J45") = ChrW(&H2713)
Range("J69:J85,J87:J97,J114") = ChrW(&H2713)

Range("J130:J133,J135:J138,J140:J143,J145:J148,J150:153,J155:J156,J158:J161,J163:J169") = ChrW(&H2713)

End Sub
--------------------------------------------------------------------------------------------------------


下記の式を追加すると
Range("J130:J133,J135:J138,J140:J143,J145:J148,J150:153,J155:J156,J158:J161,J163:J169") = ChrW(&H2713)

実行エラー1004
Rangeメソッドは失敗しましたworksheetオブジェクト
とエラーします。


実行エラー1004を調べてみたのですが、私ではよく分からずどうすれば改善するのか
教えて下さい。

No.1 ベストアンサー 回答者： ママチャリ 回答日時： 2019/02/11 22:22

153の前にJが無い？

この回答へのお礼

返事が遅くなりました。
　　単純なミスだったのですね。ご指摘ありがとうございます。

お礼日時：2019/03/23 20:20