|
こんにちは。
実行すると、「選択したシートにデータが存在する可能性があります。完全に削除するには「削除」ボタンをクリックしてください」
と出てきます。
このメッセ−ジなしに、強制削除する方法はありませんか?
Option Explicit
Sub macro001()
Dim Number As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
'Excel起動時に存在していたシート枚数をカウントし、変数Numberに代入する
Number = Worksheets.Count
'Excel起動時に存在していたシートの名前を「削除i」とする
'(シートiという名前が重複すると追加できないので)
For i = 1 To Number
Worksheets(i).Name = "削除シート" & i
Next
'シートを30枚追加する
For j = 1 To 30
'新規シートは一番最後のシートとして追加
Worksheets.Add after:=Worksheets(Worksheets.Count)
'一番最後のシート(新規シート)の名前を「シートj」とする
Worksheets(Worksheets.Count).Name = "シート" & j
Next
'Excel起動時に存在していたシートを削除する
For k = 1 To Number
Worksheets(1).Delete
Next
End Sub
|
|