<<I have 122 sheets. So, I am planning to have 120 select cases.

WOW!!! I didn't realize that you have so many sheets! We may need to
re-think this concept a little bit.

<<I have another question. For example, sheet4, sheet5 and sheet6 are
inserted and then deleted, the next inserting sheet is usually named
sheet7. Is there any way to get it automatically named as sheet4
instead of sheet7?

Again, back to my reply above. You may need to name all of your sheets in
a very systematic way, so we can use a macro that has a For loop in it
somehow. This brings to mind some questions:

1. After Sheet7 is renamed to Sheet4 (to replace the original Sheet4, are
the formulas the same as the original Sheet4, or are they different?

2. Let's consider renaming Sheet1 and Sheet2 to something else (i.e.
"Summary", "Scratchpad", etc.). Then all of the sheets that will
"correspond to" (your original terminology) Sheet1 (now renamed) can be
renamed to some constant string with a sequential number appended on the
end (i.e. "DataPlot001", "DataPlot002", etc.). Then we can develop a single
macro that will update all sheets (and maybe rename them) all at once. Is
this possible?

3. Why are some sheets being deleted?

4. Why 122 sheets!!!

(I'd like to think about this overall problem a while before suggesting any
more code!)
--
Regards,
Bill Renaud