二つの条件に合致する製品を求めるマクロ

質問

8月に標記の件で、下記の回答をkagakusukiさんより頂きました。
http://okwave.jp/qa/q9033500.html
しかしながら、当初はうまく動いていたのですが、昨日再度実行したところ以下のエラーが発生します。

エラー
「元データが入力されているシートと設定されている Sheet1という名前のシートが見つかりません」

元データ（品名や色情報が格納されたシート)の名前はSheet1で間違いなく、何が悪いのか見当が付きません。

アドバイスよろしくお願いします。

回答No.2

kkkkkm · ベストアンサー

マクロに記載されている

Const DataSheetName As String = "Sheet1"

の部分のSheet1をコピーして実際のシートの名前を変更で貼り付けしてみてください。

また以下のコードでシートが実際にあるかないか確認してください。
Sub test()
Const DataSheetName As String = "Sheet1"
Dim s As Worksheet, flg As Boolean

For Each s In Worksheets
If s.Name = DataSheetName Then flg = True
Next s
If flg = True Then
MsgBox DataSheetName & "あります"
Else
MsgBox DataSheetName & "ありません"
End If
End Sub

お礼

とてもお恥ずかしい話です。f272さんの指摘もkkkkkmさんの指摘も既にトライ済みだと思ったのですが、もう一度やったら動きました。
解決です。
ありがとうございました。

回答No.1

f272

推測で言えば
元データの名前は「Sheet1」ではなく「Sheet1 」になっているとか...
とにかく名前を確認ですね。