VBA to move multiple worksheets

[Help007]

Hello all,
Can someone please help with some code?
I would like to move every other worksheet in a workbook to the end.
So if I had 10 worksheets I would need the code to move Sheet2, 4, 6, & 8 before Sheet 10.
My Workbook sheet order would now be Sheet1, 3, 5, 7, 9, 2, 4, 6, 8, 10. The number of sheets will always end on an even number but could easily go to 100 sheets. Just thought start with 10.
It would need to loop I guess until it finds the last even numbered sheet I guess moving every other (odd numbered) sheet it. But keep order so if 10 worksheets move Sheet 8 before sheet 10 first and work backwards.
Unless you can get it to multi select the odd numbered sheets and do it at once.
Hope someone can help
Thanks in advance.

 

[Fluff]

Hi & welcome to MrExcel.
What version of Excel are you using, it can't be all of them?

I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

 

[Fluff]

Thanks for updating your profile.
How about

Sub Help()
   Dim Ary As Variant
   Ary = Evaluate("sequence(," & Sheets.Count & "/2,2,2)")
   Sheets(Ary).Move Sheets(Sheets.Count)
End Sub