Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29249 / 76732

←次へ　｜　前へ→


	【52766】ワークシートを自動で削除するには

おやじvba若葉マーク - 07/12/2(日) 17:11 -


	引用なし

	パスワード

どうすればよいのでしょう。

Sheets("名前リスト").Select
Range("a1").Select
Set st = ActiveSheet
For I = 1 To 30
If Sheets("名前リスト").Cells(I, 1).Value = "" Then Exit For
ActiveWorkbook.Worksheets.Add.Name = st.Range("A" & I)
Next

でシート名が自動で書き込まれシートの自動挿入ができると以前に教わり、リスト数が10でも6でもその数の分だけ別々の名前で自動挿入できました。

今度不特定数のシートを自動で削除したいのですがどうしたらよいものでしょう？

マクロの記録で試したところ単純に削除するには

Sheets("名前1").Select
　　ActiveWindow.SelectedSheets.Delete

複数削除するには

Sheets(Array("名前１", "名前２")).Select
　　Application.CutCopyMode = False
　　ActiveWindow.SelectedSheets.Delete

と出ました。
しかし、Sheets("名前1").Select
の"名前１"や"名前２"のところを自動で指定しなくてはいけません。
どなたか教えてください。
よろしくお願いします。

0 hits

▼

【52766】ワークシートを自動で削除するには おやじvba若葉マーク 07/12/2(日) 17:11

≪