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
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXo_aPt3bVmr9mn7XOxpYySVMOTDaP_34xiq93Ucs_kG8vRUWoaGMyDFVmUX7yeqZfFoYomXU44wcUPZdU_wp8E41gW-uYv-UsPgo4Hb9rELA5e4oWqNtwUGkns01w35WvJwOaxobXUuO8/s320/VBA_Andre_Luiz_Bernardes-780899.jpg)