Autosaving option using VBA
<p>I have a code for saving the opened excel file , but the challenge is that the I have more than 2 workbooks opened.</p>

<pre><code>Sub Macro1()
  Sheets("Sheet1").Select
  Sheets("Sheet1").Copy
End Sub

Sub Autosave()
     ActiveWorkbook.SaveAs Filename:="C:\Users\PCname\Desktop\" &amp; Sheets("Sheet1").Range("A1").Text, _
     FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub
</code></pre>

<p>1st code create new book from the raw file on which all calculations are done. New File name is "Book1"</p>

<p>2nd code saves the active workbook, but doesnt save the new created book.</p>

<p>Could someone help me to fix this.</p>