実行時エラー1004

Question

前提・実現したいこと

エクセルでVBAを利用し始めてます。
以下のコードですが、エラーが発生し、何が悪いのかわかりません。
もしわかる方がいらっしゃいましたら、ご教示いただけると幸いです。

発生している問題・エラーメッセージ

実行時エラー1004
アプリケーション定義またはオブジェクト定義のエラーです。

該当のソースコード

Sub printdata2()

Dim n As Long
Dim i As Long
Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets("itemList")

'セルの名前から列番号を取得する
n = ws.Range("Product-name").Column

'セルの名前から開始する行番号を取得する
i = ws.Range("Product-name").row + 1

Do While ws.Cells(i, n).Value <> ""
    Debug.Print ws.Cells(i, n).Value, ws.Cells(i, ws.Range("Item#").Column).Value
i = i + 1
Loop
End Sub

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[torisan]

どの行でエラーになりますか？
またそもそも何をするプログラムですか？

[eric_spook]

n = ws.Range("Product-name").Column
ここで止まってしまいます。
これは、ただの練習なのですが、繰り返しの開始行や列数の変化に対応させるためのもののようです。
よろしくお願いします。

Answer 1

mutsuki22さん＞
名前の定義を設定しただけで、動きました。
いろいろお騒がせしてすみませんでした。

torisanさん>
動きました。
ありがとうございました。

Answer 2

（中途半端に投稿されたので再投稿）
他の回答にもありますが、出ているエラーはRangeに指定している名前が存在しないときに出ます。
つまりProduct-nameの名前定義がない。
しかしそもそもハイフンは名前に使えない。
ということは名前の定義が間違っている。
と順々に原因を追っていってみてください。

Comments

[eric_spook]

ご指摘ありがとうございます。
順々に追ってみます。

Answer 3

『Product-name』という名前のセルはありますか？

セルの名前はあまり使わないのですが、『-』『#』って使えましたっけ？

Comments

[eric_spook]

エクセルには、コードにある名前のセルは用意してます。
これらの名称にするまえは、nameだったり、itemだったり、単一の名詞を利用してましたが、それでもダメでした・・・

[torisan]

セル名とプログラムから『-』『#』を取り除いた上で
動かしましたがエラーが発生しませんでした。
※Excel2010上

ちょっとお力になれなさそうです、すみません。

[mutsuki22]

横から失礼します。
どの道駄目だったとの事ですが、一先ず変わってなければ『-』は使えないはずですね。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/name.htm
http://office-qa.com/Excel/ex209.htm

[mutsuki22]

Product-nameとかにする前の単一名の時も同じ所で止まってました？

[eric_spook]

torisanさん＞
いろいろありがとうございます。
先ほど、-、#などを削除し、再度トライしたのですが、症状は同じでした。

mutsuki22さん>
ありがとうございます。
そうですね。
各々、ProductとItemに変更して、試してみたのですが、症状変わらずで、同じ場所で止まりました。
Rangeメソッド失敗、Worksheetオブジェクト
と出てきてました。

[eric_spook]

Office365のエクセルを利用してますが、それって関係ありますか？