Another thing:

New sheets from macro are colored:
..........ActiveWorkbook.ActiveSheet.Tab.ColorInde x = 34
Maybe is possible to disable Delete< in relation of tab color.
Something like.

If ActiveSheet.Tab.ColorIndex < 34 then disable Delete

Is that possible?