Macro VBA Excel: mantendo e excluindo planilhas com base nos dados da célula

Question

Esta pode ser uma pergunta muito simples, mas não consigo descobrir. Eu executo uma macro que cria 13 planilhas. Desses 13 spreads, vários deles não terão nada na coluna A2. Eu gostaria de poder criar uma macro em VBA que exclua todos os spreads sem nada em A2, mas mantenha os spreads que possuem dados em A2. Eu tentei usar:

Sub Delete()
Dim ws As Worksheet
  For Each ws In ActiveWorkbook.Worksheets
    Application.DisplayAlerts = False
      If LenB(ActiveSheet.Range("A2")) = 0 Then ActiveSheet.Delete
    Application.DisplayAlerts = True
  Next ws
End Sub

Isso exclui a planilha ativa se não houver nada em A2, o que representa algum progresso para mim, mas ela não passará automaticamente para a próxima planilha.

Answer 1

Seu código não é consistente, você deve usar em todos os lugares wsem vez de ActiveSheet.