Допишите  
Next  
ActiveWorkbook.Close Savechanges = True  
End Sub  
должно помочь