Excel VBA - Excluir varias abas, menos duas

[flash007]

Pessoal, boa noite.

 

Queria pedir um help ai.

Estou fazendo uma planilha com alguns botões para automatizar algumas funções.

Ja tenho alguns botões

1 - Criar abas vazias usando uma lista de nomes que estão na aba BASE DE DADOS

2 - Remove filtros em todas as abas

3 - Seleciona em cada aba a próxima linha vazia para inserir dados

4 - Janela que abre um combobox para ir ate uma aba da lista

todas essas acima estão ok.

5 - Excluir todas as abas, Menos as Abas Base de Dados e Total

nesta eu so consigo fazer excluir todos menos a base de dados,  ja consegui ate excluir a planilha inteira, mas deixar as duas nada. Então se alguém conseguir em dar uma ajuda, ja vou avisando que não conheço muito VBA, mas peguei hoje o dia inteiro pra estudar e consegui fazer algo.

 

segue o código que tenho

 

ABAS:  Bade de Dados  e  Total

    For Each abas In ThisWorkbook.Sheets
    If abas.Name <> "Base de Dados" Then
    Application.DisplayAlerts = False
    abas.Delete
   

    End If
     Next

 

Muito obrigado

 

[Visitante]

 

Experimente:

 

Sub ExcluiPlanilhas()
 Dim ws As Worksheet
  Application.DisplayAlerts = False
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "Base de Dados" And ws.Name <> "Total" Then ws.Delete
  Next ws
End Sub

 

[flash007]

Osvaldo.

 

Ficou perfeito, como me falta muita experiência, ainda vou recorrer muito ao forum aqui.

 

Muito obrigado