Pick a folder and consolidate workbooks
You've got a spelling mistake; it's "Alphabetize".

Private Sub AlphebetizeSheets(ByVal myBook As Workbook)
    Dim i As Long
    Dim j As Long

    For i = 1 To myBook.Worksheets.Count
        For j = i To myBook.Worksheets.Count
            If UCase(myBook.Sheets(j).Name) &lt; UCase(myBook.Sheets(i).Name) Then
                  myBook.Sheets(j).Move before:=Sheets(i)
             End If
        Next
    Next
    Application.ScreenUpdating = True
    Application.GetSaveAsFilename
End Sub


I thought this is the sort of thing that has been made before...

https://msdn.microsoft.com/en-us/library/office/ff195025.aspx

And it has. But they do it the same way, with two small differences:


They don't compare the sheets with themselves via starting the second for loop at i+1
They don't check the last sheet by stopping i at myBook.Worksheets.Count - 1


Which I guess saves a few comparisons. You've got a weird sorting algorithm here too, a version of selection and insertion sort... which seems to have some flaws, in my opinion.


  8 3 2 6 4 5 1 7
  checks 8, 3, moves 3
  3 8 2 6 4 5 1 7
  checks 2, moves 2
  2 3 8 6 4 5 1 7
  checks 6, 4, 5, 1 moves 1
  1 2 3 8 6 4 5 7
  checks 7, next iteration
  compares 2 to 3, 8, 6, 4, 5, 7, next iteration
  compares 3 to 8, 6, 4, 5, 7, next iteration
  compares 8 to 6, moves 6
  1 2 3 6 8 4 5 7
  compares 6 to 8, 4 moves 4
  1 2 3 4 6 8 5 7
  compares 4 to 5, 7, next iteration
  compares 6 to 8, 5 moves 5
  1 2 3 4 5 6 8 7
  compares 5 to 7, next iteration
  compares 6 to 8, 7, next iteration
  compares 8 to 7, moves 7
  1 2 3 4 5 6 7 8, next iteration and end.  


The problem with this sort is that it compares items[i] with items[i+1] even although on the previous iteration, multiple shifts happened. Take a look at the start:


  8 3 2 6 4 5 1 7
  checks 8, 3, moves 3
  3 8 2 6 4 5 1 7
  checks 2, moves 2
  2 3 8 6 4 5 1 7
  checks 6, 4, 5, 1 moves 1
  1 2 3 8 6 4 5 7
  checks 7, next iteration  


After that, it should know that 2 > 1, 3 > 2, and 8 > 3 so it should skip those.

So instead of 


  compares 2 to 3, 8, 6, 4, 5, 7, next iteration


it should be


  compares 2 to 6, 4, 5, 7, next iteration.


and 


  compares 3 to 6, 4, 5, 7, next iteration.


You could do this by incrementing another variable for every move operation, and decrementing this variable after the j-for loop (with a minimum of 0). Start j at i + this other variable. Like that, it would, after the 3 moves in the first iteration, start the second iteration off at index 4 (i = 2, move counter = 3 - 1 iteration passed = 2).



Alternatively, accept that sorting sheets is likely to be fast already, and don't spend time on this beyond adding the two simple improvements. Maybe store UCase(myBook.Sheets(j).Name) and UCase(myBook.Sheets(i).Name) in temporary variables.