Sub SrtShs()Dim iSheet As Long, iBefore As LongFor iSheet = 1 To ActiveWorkbook.Sheets.CountLet Sheets(iSheet).Visible = TrueFor iBefore = 1 To iSheet - 1If UCase(Sheets(iBefore).Name) & UCase(Sheets(iSheet).Name) ThenActiveWorkbook.Sheets(iSheet).MoveBefore:=ActiveWorkbook.Sheets(iBefore)Exit ForEnd IfNext iBeforeNext iSheetEnd Sub
Reference:
Inspiration:
Tags: VBA, Excel, wrap, sheet, sheets, ws, insert, sort, ordena
