Il vous faut utiliser les termes :
Application.DisplayAlerts = True
Application.DisplayAlerts = False
avant et après l'argument qui déclenche une boîte de dialogue à ne pas faire apparaître.
Et le terme :
ActiveWorkbook.Close False
pour fermer sans enregistrer.