On Error Resume Next
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Application.DisplayAlerts = True
End Sub

36. Ordenar as abas em ordem alfabética

Esta macro, ao ser executada ordena as abas em ordem alfabética crescente,
para trocar para decrescente, basta alterar o sinal de maior (“>”), destacado
em negrito por menor (“<”).

Sub Ordenarabas()
Dim i As Integer
Dim j As Integer
Dim Resposta As VbMsgBoxResult
Resposta = MsgBox("Deseja ordenar em ordem Crescente ?", vbYesNo +
vbQuestion + vbDefaultButton1, "Ordenar Abas")
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count - 1
If Resposta = vbYes Then

If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then

Sheets(j).Move After:=Sheets(j + 1)
End If
End If
Next j
Next i
End Sub

37. Trocar o nome de todas as abas

Esta macro tem o objetivo de alterar rapidamente o nome de todas as abas.