Sub edit_sheetdelete()
	ActiveWindow.SelectedSheets.Delete
	'選択されているシートを削除します
	'元に戻せませんので注意が必要です
End Sub