Enter bij Pop-up

[Hamadryas]

Hallo iedereen.

Ik gebruik een VBA programma om een excel bestand op te kuisen voordat ik het doorstuur naar externen.
Deel van dit programma is het verwijderen van niet zichtbare tabladen.
Elke keer mijn VBA code een tablad verwijderd krijg ik een pop-up en moet ik nog op "verwijderen" klikken.
Is er een manier om dit automatisch te laten gebeuren?

De code die ik gebruik is:

For Each ws In ActiveWorkbook.Worksheets
   If ws.Visible = False Then
   ws.Delete
   End If
Next

Alvast bedankt voor de hulp!

 

[edmoor]

Probeer het eens zo:

Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
   If Not ws.Visible Then ws.Delete
Next
Application.DisplayAlerts = True

 

[Hamadryas]

Bedankt!
Ik had niet gedacht dat het zo simpel zou zijn!