Execute este código e ele verificará todas as planilhas na pasta de trabalho ativa, excluindo as planilhas que estiverem em branco:
Série Donut Project
Sub deleteBlankWorksheets()
Dim Ws As Worksheet
On Error Resume Next
Let Application.ScreenUpdating = False
Let Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Let Application.ScreenUpdating= True
Let Application.DisplayAlerts= True
End Sub
PUDIM PROJECT
Conheça também:
Veja outros códigos:
Série de Livros nut Project
Série DONUT PROJECT 2015
Clique aqui e nos contate via What's App para avaliarmos seus projetos
Nenhum comentário:
Postar um comentário