Это код VBA, который я использую, чтобы попытаться добавить новый лист в последнее место в книге.

mainWB.Sheets.Add(After:=Sheets(Sheets.Count)).Name = new_sheet_name

Я видел это в аналогичном вопросе на этом сайте. Это не работает.

Я делаю это в цикле, и каждый лист добавляется ко второй позиции в листах. Есть 2 листа, которые постоянно там (информация и сводка), и я затем добавляю еще 5 так называемых «тестов». С 1 по 5. Я всегда получаю листы в следующем порядке:

Info, sheet5, sheet4, sheet3, sheet2, sheet1, Summary

Но то, что я хочу / ожидал, было:

Info, Summary, sheet1, sheet2, sheet3, sheet4, sheet5

(цикл действительно производит их в ожидаемом порядке, поэтому проблема отсутствует.)

Если я поменяю местами сводные и информационные листы до того, как начну, то они окажутся в противоположных местах, когда я закончу.

Что я делаю неправильно?