Workbook.close not working
<p>Trying to do a save and close macro.</p>

<p>It is a workbook containing macro (xlsm), which I'm removing the macro and saving it into 2 other different path as xlsx. I want the workbook to close afterward, but it is not working.</p>

<p>Outcome:
1 xlsm, 2 xlsx, closed after save.</p>

<pre><code>Sub saveas()

*saves the workbook before removing macro
ThisWorkbook.Save

ActiveSheet.Shapes.Range(Array("Button 1")).Select
Selection.Delete

Worksheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
Application.DisplayAlerts = False
ActiveWorkbook.saveas Filename:="path1\list.xlsx"
ActiveWorkbook.saveas Filename:="path2\list.xlsx"

ActiveWorkbook.Close SaveChanges:=False


End Sub
</code></pre>

<p>Thank you in advance.</p>