VBAの実行時エラー'9'について

こんばんは
下記マクロで FNameというファイルのグラフの数を数えて名前を取得しGnameというファイル
に同名のシートを作成したいのですが
実行時エラー'9'、インデックスが有効範囲にありません.と出てしまいます。
どなたかご存知の方ご教示お願いいたします。
Workbooks(FName).Activate
　For　 s = 1 To Charts.Count

Windows(GName).Activate

Worksheets.Add

ActiveSheet.Name = Charts(s).Name

　Next s

No.3 ベストアンサー 回答者： MSZ006 回答日時： 2013/08/06 14:29

#1です。

＞ActiveSheet.Name = Charts(s).Name
を
ActiveSheet.Name = Workbooks(FName).Charts(s).Name
としてください。


Charts(s).Name
はどちらのブックに対しての操作なのかを考えてみてください。
頭に何も書かないとアクティブなブック（今回の場合ではGNameのほう）に対しての操作となります。
グラフシートがあるのはFNameのほうですから、明示的にWorkbooks(FName).Charts(s).Nameと書きます。

No.2 回答者： MARU4812 回答日時： 2013/08/06 13:56

>新規作成したシートはアクティブなのでそのシートの名前を

>Charts(s).Nameに変更したいのでしようとしているつもりなのですが・・・

＃１さんが既に回答済みなんですが、、、

Charts(s).Nameは命令した時にアクティブになっている
ブックから取ってこようとするコマンドなので、
新規作成したシートのグラフを探しにいっています。
新規作成したシートにグラフは無いでしょう？

グラフ名を変数に退避しておくとか、ブックから
ちゃんと指定して命令するとかすればいいわけです。

No.1 回答者： MSZ006 回答日時： 2013/08/06 10:50

アクティブなブックがどちらなのかを常に気をつけていないといけません。

＞ActiveSheet.Name = Charts(s).Name

右辺のCharts(s).Name　はアクティブブックのそれを見に行こうとしています。が、ありませんからエラーとなるのだと思われます。

この回答へのお礼

お忙しいところありがとうございます。
新規作成したシートはアクティブなのでそのシートの名前を
Charts(s).Nameに変更したいのでしようとしているつもりなのですが・・・
どこがいけないのでしょうか？

お礼日時：2013/08/06 12:45