If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
How do I alphabetize the tabs on a spreadsheet with 25 tabs?
Hi,
Alt+F11 to open vb editor. Right click 'ThisWorkbook' and insert module and paste the code below in and run it Sub Sortem() For x = 1 To Worksheets.Count For y = x To Worksheets.Count If UCase(Sheets(y).Name) UCase(Sheets(x).Name) Then Sheets(y).Move Befo=Sheets(x) End If Next Next End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. "Anita" wrote: The only way I know is to drag and drop but it's time consuming. Is there an easier way? |
Thread Tools | |
Display Modes | |
|
|