コードの一部がよく解かりません。

質問

下記＞部分の使い方がよくわかりませんので教えて下さいませ。
なくても動作しますが、

ありますと
↓
「実行時エラー'9'
インデックスが有効範囲にありません。」
となりますので、＞部分も使用して正常に動作するには、どのようにすればよろしいでしょうか？

よろしくお願い致します。
------------------
Sub ワークシートの追加()
' 新規シート１枚を追加
'
Sheets.Add after:=Worksheets(Worksheets.Count), Count:=1
MsgBox "ワークシートの最後の後ろに１枚のシートを追加しました。"
＞ Sheets("ワークシート").Select
End Sub
------------------

回答No.2

hana-hana3 · ベストアンサー

＞１、この部分の文字がいけないんでしょうか？

そのブックには「ワークシート」という名前のシートはありますか？
無い場合は確実にエラーになります。

＞２、また、この一行（＞）は重要な役割があるのでしょうか？

プログラムの内容によって違います。
新しいシートを追加すると、追加されたシートがアクティブになります。
別のシートをアクティブ（何らかの操作の対象）にしたい場合は、該当のコマンドが必要になります。

お礼

納得致しました。
「ワークシート」という名前のシートはありませんでした。
どうも有難うございました。

回答No.3

Wendy02

こんばんは。

>＞部分も使用して正常に動作するには、どのようにすればよろしいでしょうか？

＞ Sheets("ワークシート").Select

それは無理ですね。そんなシート名なんてありませんからね。

このようにすれば可能ですが。

Sheets.Add after:=Worksheets(Worksheets.Count)
MsgBox "ワークシートの最後の後ろに１枚のシートを追加しました。"
Sheets(Worksheets.Count).Select

"ワークシート"っていうのが、一意なら、
Worksheets(Worksheets.Count).Name = "ワークシート"
を加えればよいですが、もし、そうなら、一回きりです。

お礼

早速のご回答どうも有難うございました。
ご説明が、非常によくわかりました。

回答No.1

hana-hana3

Sheets("ワークシート").Activate

Select の場合使い方によっては失敗するので、
Activate にしてください。

補足

早速、どうも有難うございます。
実行して見ましたが、結果が同じですが、
"ワークシート"
１、この部分の文字がいけないんでしょうか？
２、また、この一行（＞）は重要な役割があるのでしょうか？
よろしくお願い致します。