Djô, abra o VBA e insira o código clicando duas vezes no objeto EstaPasta_de_Trabalho (lado esquerdo).
Private Sub Workbook_Open()
If Me.Worksheets("Planilha1").Range("A1").Value >= 10 Then
Application.DisplayAlerts = False
Me.Worksheets("Teste").Delete 'Faça tratamento de erro caso a planilha "Teste" não exista
Application.DisplayAlerts = True
End If
End Sub
Lembre-se de que se Teste não existir, dará erro. Basta fazer um tratamento de erro ou um loop pelas planilhas antes prá saber se ela existe.
Postado : 24/06/2016 1:56 pm