VBA melding

[sjoerd81]

Hallo,

Ik heb onderstaande code voor het verzenden van een document. De sheets Bl, Gr, Ro worden verwijderd alvorens het document wordt verzonden. Hierbij krijg ik de volgende melding: 'Data may exist in the sheets(s) selected for deletion. To permanently delete the data, press Delete".
Deze melding wil ik eigenlijk niet zien/krijgen, maar hoe doe ik dat?

Groet
Sjoerd


Sub button()
If [A1] = "OK" Then
Sheets(Array("Bl", "Gr", "Ro")).Delete
Application.Dialogs(xlDialogSendMail).Show _
arg1:=Range("C1"), _
arg2:=Range("C2")
End If
Application.ScreenUpdating = True
DisplayAlerts = True
End Sub

 

[Warme bakkertje]

Zet bovenaan je macro

Application.DisplayAlerts=False

en onderaan

Application.DisplayAlerts=True

 

[sjoerd81]

wauw, wat een snelle reactie tijd
en meteen het gewenste resultaat :thumb:

Thanks Rudi