My code closes the workbook but not the window

Question

I have a problem with closing window. I am using excel 2013 and it opens every workbook in separate window. My code closes the workbook but not the window. Any ideas? I am calling this sub from another sub.

Sub export_sheet()
    Sheets(sName).Move
    ActiveWorkbook.SaveAs Filename:=sDir & sName & ".xlsx",  FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    Workbooks(sName & ".xlsx").Close SaveChanges:=True
    Workbooks(ThisWorkbook).Activate
End Sub

I have two Excel instances. One contains my code "temp 121015.xlsm" and the other one is just a empty window with the workbook name but the workbook is closed.

Answer 1

Excel 2013's method of an independent application window for each workbook means that you have to work with the Application.ActiveWindow property to close the new workboook that you created without leaving an empty application frame.

Sub export_sheet()
    Sheets(sName).Move
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=sDir & sName & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close   '<~~ this closes the new workbook created by the .Move
    ThisWorkbook.Activate
    Application.DisplayAlerts = True
End Sub

You are already dealing with the ActiveWorkbook property created with the Worksheet.Move method. Continue working within this scope with ActiveWindow.