不要シート削除

不要シートを削除する

Dim i As Long
For i = Sheets.Count To 1 Step -1

　If Sheets(i).Name Like "★*" Then
　Else
　　Sheets(i).Delete
　End If
Next

★がついたシートは毎回使用する為削除しない。

★以外のシートを全て削除する。

For i = Sheets.Count To 1 Step -1

シート数（５）から１になるまで繰り返す。Step -1 を5に足していく。

　If Sheets(i).Name Like "★*" Then
　Else
　　Sheets(i).Delete
　End If

シート名が★から始まっていたら何もしない。★から始まっていなかったら削除する。