エラーになりますが、原因が分かりません。

質問

以下のようなコーディングをしてグラフを１０枚書き直そうと思っています。
１枚目は書けるのですが、２枚目でエラーとなりますが原因が分かりません。
何処が悪いのかご指摘ください。

Sheet1に元データ、Graph1～１０が（既に書いたグラフが）存在します。
毎日Sheet1のデータが１行ずつ増えていきます。
以下のコーディングで、元データの範囲を修正し、
書き直そうとしています。

Sheet1には、Ａ列に日付、Ｂ列に時刻（使っていません）、
Ｃ列からＬ列までが書き直したいグラフの元データです。

一応構想を説明すると、
日付は固定なので、range1に前もってセットしておき、
実際のデータ（Ｃ列～Ｌ列）をrange2で与え、ループさせようとしています。

エラー状況ですが、
range2 = Range(Cells(1, n + 2), Cells(lastln, n + 2)).Addressのところで、

【実行時エラー　'１００４'
　'cells'メソッドは失敗しました：'_global'オブジェクト】

というエラーになります。

ただ、
Sheets("Graph" & n).Select
ActiveChart.SetSourceData Source:=target, PlotBy _
:=xlColumns
の部分をコメントにすると、エラーにならず１０回ループします。

Dim target As Range
Dim range1, range2, lastln, grph As Variant

Sheets("Sheet1").Select
lastln = Range("A1").End(xlDown).Row
range1 = "A1:A" & lastln

For n = 1 To 10
range2 = Range(Cells(1, n + 2), Cells(lastln, n + 2)).Address
Set target = Union(Range(range1), Range(range2))
Sheets("Graph" & n).Select
ActiveChart.SetSourceData Source:=target, PlotBy _
:=xlColumns
Next n

WindowsXP　＆　excel2003です。
お願いですが、もっと上手い書き方があると思いますが、
それはそれで別途ご指摘いただきたいのですが、
これの原因についてを教えて欲しいのです。
宜しくお願いします。

回答No.1

mt2008 · ベストアンサー

RangeやCellsは、シートの指定が無いとその時アクティブなシートを見に行きます。

1回目は、Sheets("Sheet1").Select　で、"Sheet1"シートがセレクトされた後なので、 RangeもCellsも、"Sheet1"シートのセルを見に行っています。
しかし、その後で　Sheets("Graph" & n).Select　と、"Gtaph1"シートをセレクトしていますので、2回目は"Gtaph1"シートのセルを見に行こうとして失敗しています。
＃グラフシートも、「シート」なのでアクティブなシートになります。

Sheets("Sheet1").Range(……）の、様に、どのシートを見に行くのか明示的に指定するか、余計なシートをアクティブにしないようにしましょう。

お礼

早速有り難うございました。
回答を読み始めて直ぐ分かりました。
どうも何時も見よう見まねでやっているため、
今回のような思いに気が回っておりません。
今後勉強いたします。

もちろんご指摘の通り対応し、完成いたしました。
有り難うございました。

回答No.2

keithin

グラフシートに移動してしまってるのに，シートを戻さずに
range2 = Range(Cells(1, n + 2), Cells(lastln, n + 2)).Address
とアクティブシート(ワークシート)を前提にしたマクロを実行しようとして，エラーが起きています。

丁寧に毎回シート１に戻してから問題の行を実行するか，

（アクティブシートの）というマクロの書きぶりを改めて
range2 = シート.range(シート.Cells(1, n + 2), シート.Cells(lastln, n + 2)).Address
のように丁寧に（必要に応じてWith … End Withなどを使いながら）作成するか

そもそも「アクティブなんたら（Select/Selection)を使わないマクロ」を書けるよう練習する
などで対処します。

また，ご相談で関係ないと思って情報提供を省いた
sub

end sub
の部分が実際はどうなっているのかによっても，異なる対処が必要となる可能性もあります。

お礼

早速有り難うございました。
回答を読み始めて直ぐ分かりました。
どうも何時も見よう見まねでやっているため、
今回のような思いに気が回っておりません。
今後勉強いたします。

もちろんご指摘の通り対応し、完成いたしました。
有り難うございました。

全く１番の方と時を同じくして回答いただきました。
お二方にベスト差し上げられなく申し訳在りませんが、
ちょっとの差で早かった１番の方にベストポイントを差し上げたく思います。
申し訳在りません。