Como Excluir Varias Abas do Excel ao Mesmo Tempo Vba

Existem algumas maneiras de excluir várias abas do Excel ao mesmo tempo com o VBA. Abaixo seguem dois exemplos:

1. Usando um loop For:

```VBA Sub ExcluirAbas()

Dim i As Integer Application.DisplayAlerts = False ' Desabilita as mensagens de confirmação For i = ActiveWorkbook.Worksheets.Count To 1 Step -1 ' Loop de trás para frenteIf ActiveWorkbook.Worksheets(i).Name <> "Planilha1" Then ' Verifica se a aba não é a planilha principal  ActiveWorkbook.Worksheets(i).Delete ' Exclui a abaEnd If Next i Application.DisplayAlerts = True ' Habilita as mensagens de confirmação novamente 

End Sub ```

Este código começa do final da lista de abas e verifica se cada uma não é a planilha principal. Se não for, a aba é excluída. Note que a linha Application.DisplayAlerts = False desabilita as mensagens de confirmação, então tome cuidado ao usar esse código.

2. Usando um array com o nome das abas:

```VBA Sub ExcluirAbas()

Dim abaExcluir As Variant Dim i As Integer abaExcluir = Array("Planilha2", "Planilha3", "Planilha4") ' Nomes das abas a serem excluídas Application.DisplayAlerts = False ' Desabilita as mensagens de confirmação For i = LBound(abaExcluir) To UBound(abaExcluir) ' Loop pelo arrayIf SheetExists(abaExcluir(i)) Then ' Verifica se a aba existe  Worksheets(abaExcluir(i)).Delete ' Exclui a abaEnd If Next i Application.DisplayAlerts = True ' Habilita as mensagens de confirmação novamente 

End Sub

Function SheetExists(sheetName As String) As BooleanSheetExists = FalseOn Error Resume NextSheetExists = (Worksheets(sheetName).Name <> "")On Error GoTo 0 End Function ```

Este código utiliza um array com o nome das abas a serem excluídas. O loop verifica se cada uma das abas existe e, se existir, a aba é excluída. Note que a função SheetExists verifica se a aba existe, evitando que ocorra um erro ao tentar excluir uma aba que não existe.

Espero que ajude!