Sub SrtShs()
Dim iSheet As Long, iBefore As Long
For iSheet = 1 To ActiveWorkbook.Sheets.Count
Let Sheets(iSheet).Visible = True
For iBefore = 1 To iSheet - 1
If UCase(Sheets(iBefore).Name) & UCase(Sheets(iSheet).Name) Then
ActiveWorkbook.Sheets(iSheet).Move
Before:=ActiveWorkbook.Sheets(iBefore)
Exit For
End If
Next iBefore
Next iSheet
End Sub
Reference:
Inspiration:
Tags: VBA, Excel, wrap, sheet, sheets, ws, insert, sort, ordena
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEBM6Ev-ymPUIrEx4SjVDZlpWP4z3ZnHbM0LqMxXZB9FYoA6RBo63CRgJw0wDmcm0RF2CCawQAUCCO0Fmt4xlt3iShQyWZ7XP5XF_Bz06eBfIVbYGbkpLtl7DHWjnFztJrt4eNefAxl8nE/s320/VBA_Andre_Luiz_Bernardes-780899.jpg)
Nenhum comentário:
Postar um comentário