Randomize Sheet Order

[drmartell]

How could I create a macro or script to randomize the order of the Sheets within my Workbook?

And why would I want to?

Ok I'll answer the second question - because I track an exercise program with one exercise per worksheet and I like to perform the exercises in a random order each time.

 

[mikerickson]

Dim oneSheet as Worksheet
Randomize

For each oneSheet in ThisWorkbook.Worksheets
    If Rnd() < . 5 Then oneSheet.Move Before:=ThisWorkbook.Sheets(1)
Next oneSheet

 

[tweedle]

Hi, Welcome.

Something like this

Sub RandSheet()
vSelected = WorksheetFunction.RandBetween(1, Sheets.Count)
Sheets(vSelected).Select
End Sub

note it is possible, and rather likely, that this will return the same sheet twice in a row.

 

[drmartell]

Thank you both,

I am now using

Sub Randomcise()
Randomize
For Each Worksheet In ThisWorkbook.Worksheets
vPosition = WorksheetFunction.RandBetween(1, Sheets.Count)
Sheets(Worksheet.Index).Move Before:=ThisWorkbook.Sheets(vPosition)
Next Worksheet
Worksheets(1).Activate
End Sub

I haven't thought it through enough to make sure it does fully randomize, but appears to be working.