Responder a POPUP do Excel automaticamente

Question

Boa tarde,

Criei uma macro que tem função principal de apagar e recriar planilhas de acordo com as datas do mês, mas não sei como responder os POPUP gerados pelo excel automaticamente, alguém poderia me ajudar?

Segue a macro:

Sub Iniciar_Mes()

Dim nNumSheets As Long
Dim dPriDiaProxMes, dUltiDiaProxMes, dAtual As Date
Dim wbMes As Workbook
Dim wsDia As Worksheet
Dim J As Long
Dim nProxMes, nProxAno As Integer


    sMes = Left(ThisWorkbook.Name, 8)
    
    nProxMes = Mid(sMes, 6, 2)
    
    nProxAno = Mid(sMes, 1, 4)

    dPriDiaProxMes = DateSerial(nProxAno, nProxMes + 1, 1)
  
    dUltiDiaProxMes = DateSerial(nProxAno, nProxMes + 2, 1) - 1

  
    Set wbMes = ThisWorkbook


    For Each wsDia In wbMes.Worksheets 'Apaga todas as planilhas até restar uma
            
            nNumSheets = wbMes.Worksheets.Count
            
            If nNumSheets > 1 Then
                
                wsDia.Delete
            
            Else
            
                wsDia.Range("C6:AC29").SpecialCells(xlCellTypeConstants, 23).ClearContents 'apaga todo conteúdo dentro da aba  menos formulas
                Exit For
            
            End If
    Next

    For J = dUltiDiaProxMes To dPriDiaProxMes Step -1
        
        dAtual = Format(J, "dd/mm/yyyy")
        
        Sheets(1).Select
        Sheets(1).Copy Before:=Sheets(1)
        Sheets(1).Name = Mid(dAtual, 1, 2)
    
    Next



End Sub

POPUP  que aparece ao deletar:

POPUP que aparece ao criar:

Desde já agradeço a vocês!

Answer 1

Faça assim:

application.DisplayAlerts = False

sheets(1).delete

application.DisplayAlerts = true

---

Natan

Answer 2

Obrigado Nathan, 

Consegui resolver com sua indicação.