Something like this maybe.

    Application.DisplayAlerts = False
    Workbooks("yourworkbookname").Close False
    Application.DisplayAlerts = True