Reorder Tabs

[rjbinney]

Dear Internet:

I have a worksheet with about 48 tabs. Every so often I need to copy a tab and move it to the end of the worksheet. I know this is lame and lazy, but I get tired of scrolling down to "Move to End".

It would be easier to just add the new worksheet to the BEGINNING of the file. That would mean, though, that I would need to re-sort each and every tab, in backwards order.

I've found VBA to rearrange alphabetically. My tabs are not named alphabetically.

Any thoughts?

 

[MARK858]

If you just want to reverse the sheets maybe try the code below

Sub ReverseSheets()
    Dim ShtCnt As Long, i As Long
    ShtCnt = ActiveWorkbook.Sheets.Count
    For i = 1 To ShtCnt - 1
        Sheets(1).Move After:=Sheets(ShtCnt - i + 1)
    Next
End Sub

 

[rjbinney]

Perfect! Thank you.

 

[MARK858]

You're welcome