Bom dia Pessoal,

Neste fim de ano jogaram um BO na minha mão, zerar todas as planilhas da empresa para o ano que vem, para isso eu precisei de um código que realizasse a limpeza de todas as células desbloqueadas da planilha. Em todos os fóruns que pesquisei eu só achava a rotina que varre um range da planilha célula por célula e realiza a limpeza, mas como minhas planilhas são muito grandes e tem muitas abas eu levava quase uma hora para zerar cada planilha.

Por isso dei uma pesquisada em fóruns gringos e encontrei uma rotina que faz o mesmo trabalho quase que instantaneamente, por isso resolvi compartilhar aqui no fórum para facilitar a vida de que tem o mesmo problema que eu.

Sub LimparTudo()
    Dim wkb As Workbook
    Dim wks As Worksheet
   
    Set wkb = ThisWorkbook
    
      For Each wks In ThisWorkbook.Worksheets
       wks.Protect  'se a planilha não estiver protegida todas as células e formulas serão zeradas!
       On Error Resume Next
       wks.UsedRange = ""
       On Error GoTo 0
     Next wks
End Sub

Espero ter ajudado de alguma forma.

Att, Carlos