Ordering worksheet tabs in a specific order

[emu165]

Thanks Paul -- the more I see the more i need to learn. I did get a subscript out of range error on the following line
ReDim arySum(1 To ThisWorkbook.Worksheets.Count / 2)