Verwijderbevestiging overslaan?

[ExcelNoob]

Daar ben ik weer! Ik heb een macro gemaakt die een blad andere bladen verwijderd en dan dat blad opslaat als. Maar dan krijg ik een melding of ik zeker weet dat ik die wil verwijderen. Ik wil niet dat hij dat doet.

Dit is mijn macro:

Sub opslaanals()
Sheets("Voorraadmutaties").Delete
Sheets("Statistieken").Delete
Sheets("Factuur Korting").Delete
ActiveSheet.SaveAs Filename:="C:\Documents and Settings\NAAM\Mijn Documenten" & Range("A5").Value & ".xls"

End Sub

 

[Joske2000]

Hi,

Voeg dit toe aan je macro :

Application.DisplayAlerts = False

Joske

 

[Wigi]

En na het verwijderen terug op True zetten

Application.DisplayAlerts = False
'je code om bladen te verwijderen
Application.DisplayAlerts = True

 

[Wigi]

O ja, verwijderen kan in 1 regel:

Sheets(Array("Voorraadmutaties", "Statistieken", "Factuur Korting")).Delete

Wigi

 

[ExcelNoob]

Oke bedankt voor jullie hulp!!!:thumb:

 

[ExcelNoob]

Sorry, maar het is nog niet verholpen, ik krijg namelijk nog steeds dezelfde melding. Er staan wel gegevens in die andere bladen, misschien dat het dan een andere code wordt?

 

[Wigi]

Dit zou toch moeten werken hoor:

Sub opslaanals()
Application.DisplayAlerts = False
Sheets(Array("Voorraadmutaties", "Statistieken", "Factuur Korting")).Delete
Application.DisplayAlerts = True
ActiveSheet.SaveAs "C:\Documents and Settings\NAAM\Mijn Documenten" & Range("A5").Value & ".xls"

End Sub

Wigi