I tried everything but it still prompts me the saving dialog! I tried the most obvious:
Sub Auto_Close() ThisWorkbook.Saved = True End Sub