Shark Tip - VBA Excel | Excluir todas as Planilhas em Branco - Delete all Blank Worksheets

 

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 

  

  

  

 

 Série de artigos: PUDIM PROJECT Pyhton 

  

 

Conheça também:

 

Veja outros códigos:

  

 

 

 

 Série de Livros nut Project 

  

 Série VBA Outlook: 

  

  

  

 Série DONUT PROJECT 2021 

  

  

  

 Série DONUT PROJECT 2018 

  

   

  

  

 

 Série DONUT PROJECT 2015 

  

    

   

  

   

  

   

  

 

 Série DONUT PROJECT 2014 

   

   

  

  

    

  Clique aqui e nos contate via What's App para avaliarmos seus projetos 

Envie seus comentários e sugestões e compartilhe este artigo!

brazilsalesforceeffectiveness@gmail.com