不要シートを削除する
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
シート名が★から始まっていたら何もしない。★から始まっていなかったら削除する。