<div>
<div class="content wysiwyg-content">
I'm using the following to save an Excel file. How would I modify this to only save the active sheet only and not the whole workbook. Also it doesn't prompt the user to choose a location where they would want to save it. <br />
<br />
Sub save_sheet()<br />
&nbsp; &nbsp; ActiveWorkbook.SaveAs activeworkbook.path &amp;&nbsp;&quot;\Test &quot;&nbsp;&amp; month(Date) &amp;&nbsp;&quot;-&quot; &amp;&nbsp;day(Date) &amp;&nbsp;&quot;-&quot; &amp;&nbsp;year(Date) &amp;&nbsp;&quot;.xls&quot;<br />
End Sub
</div>
</div>


I'm using the following to save an Excel file. How would I modify this to only save the active sheet only and not the whole workbook. Also it doesn't prompt the user to choose a location where they would want to save it. 

Sub save_sheet()
    ActiveWorkbook.SaveAs activeworkbook.path & "\Test " & month(Date) & "-" & day(Date) & "-" & year(Date) & ".xls"
End Sub

Save specific Sheet from Excel Workbook

I&#39;m using the following to save an Excel file. How would I modify this to only save the active sheet only and not the whole workbook. Also it doesn&#39;t prompt the user to choose a location where they would want to save it. 

Sub save_sheet()
    ActiveWorkbook.SaveAs activeworkbook.path &amp; &quot;\Test &quot; &amp; month(Date) &amp; &quot;-&quot; &amp; day(Date) &amp; &quot;-&quot; &amp; year(Date) &amp; &quot;.xls&quot;
End Sub

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.