Este fórum está sendo desativado

[WaveRunner]

Preciso uma ajuda com VBA

VBA para apagar todas as planilhas exceto algumas com base nos nomes das planilhas.

Por ex. tenho varias planilhas (muitas, e em número variável, as vezes mais, as vezes menos) com nomes de frutas. Quero apagar todas, exceto as que tem o nome pera, uva e mamão (excluir todas as planilhas menos estas 3).

Como fazer?

Obrigado

[osvaldomp]

Código: Selecionar todos

Sub DeletaPlanilhas()
 Dim ws As Worksheet
  For Each ws In ThisWorkbook.Worksheets
   If ws.Name <> "pera" And ws.Name <> "uva" And ws.Name <> "mamão" Then
    Application.DisplayAlerts = False
    ws.Delete
    Application.DisplayAlerts = True
  Next ws
End Sub

[WaveRunner]

Obrigado,

Só faltou End If, mas ja resolveu meu problema...