Need a Macro to Save a Worksheet as new File

[williams22]

I'm putting together a template that will be used on a daily basis. There is an output tab in the template which I would like to be able to copy to its own workbook and save with the click of a single button. I'm a little rusty on my VBA, could someone give me a rough outline of the code I'll need to do this and I can tweek it to fit my needs exactly? Thanks in advance.

 

[Peter_SSs]

Welcome to the MrExcel board!

See if this is enough to get you going. This code would get stored in the workbook that contains the 'template' tab. It will copy that tab and save it to the same folde the template workbook is in and give the new file a base name with the current date (reverse order - sometimes helps with sorting files) appended.

<font face=Courier New><br><SPAN style="color:#00007F">Sub</SPAN> SaveTab()<br>    <SPAN style="color:#00007F">Dim</SPAN> MyPath <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN><br>    <br>    <SPAN style="color:#00007F">Const</SPAN> TemplateTab <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "Output"<br>    <SPAN style="color:#00007F">Const</SPAN> BaseName <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN> = "Test "<br>    <br>    MyPath = ThisWorkbook.Path & Application.PathSeparator<br>    Sheets(TemplateTab).Copy<br>    ActiveWorkbook.SaveAs (MyPath & BaseName & Format(Date, "yy mm dd"))<br>    <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[williams22]

Perfect, thank you!