Macro: select all tabs between two bounds

Hello,

For this, you need to proceed not by the tab name but by its positioning.

In the code I am proposing, "Borne 1" is the 1st tab and "Borne 2" is the 9th tab. You just need to change the variables a and b to match your document (a = number "Borne 1" + 1; b = number "Borne 2" - 1).

Sub test()

a = 2
b = 8

For i = b to a step -1
sheets(i).select
ActiveWindow.SelectedSheets.Delete
Next i

End sub

Thank you, Théo, for your quick response.
I just tested your macro, and it works very well...
.. but...
The number of tabs that fall between threshold 1 and threshold 2 changes regularly. (Some days I have 15 tabs to process, other days 25...) The "numerical" position of threshold 2 is therefore not always the same... I can't always assign it the position "9".

The macro I would like to implement will delete all the tabs between threshold 1 and 2 to then import other tabs to process.

PS: Threshold 1 is fixed (so no problem with this tab...)

Well, my code was actually wrong, sorry I wasted our time

The correct code:

Sub test()
Application.DisplayAlerts = False

Sheets("Borne 1").Select

ActiveSheet.Next.Select

While ActiveSheet.Name <> "Borne 2"

ActiveWindow.SelectedSheets.Delete

Wend

Application.DisplayAlerts = True

End Sub