Macro for reordering tabs based on cells.

[kyleboyd]

Can someone help me with a macro for reordering tabs based on cell values. I have a workbook with about 40 sheets, each sheet name (a project name) corresponds to a cell in a list on a master sheet which is then sorted based on a different value (a date). So I would like the sheets to be ordered in the same order as on the master sheet. Thanks for the help!

 

[GlennUK]

What have you tried so far?

 

[kyleboyd]

Here's what I came up with:

Sub OrderSheets()
    Dim i As Integer
    For i = 1 To Selection.CurrentRegion.Rows.Count - 1
       Dim sheetTitle As String
       sheetTitle = ActiveCell.Value
       Dim sheetPrevious As String
       sheetPrevious = ActiveCell.Offset(-1, 0).Value

       Sheets(sheetTitle).Move After:=Sheets(sheetPrevious)
       Sheets("Project Master").Select
       ActiveCell.Offset(1, 0).Select
       Next i
End Sub

It works, I may have to do some fine tuning. (Guess I just needed to put some thought into it)