Save a worksheet as it's own workbook with the file name using a number from within a cell

[JAB331]

Hi All,

I have created a report template that is populated when people enter data using a userform. It is working as i would like andwhen data is submitted the report template is populated correctly. Now i would like to add a command button to this report template so people can save each populated report as its own individual workbook with the file name being the "part number" and "tool number" which is in cells T3 and T5.

This the data entry/template workbook is never changed but all the reports that are created using the data entry form are saved seperately with easily identifiable names.

Thanks for any help in advance.

 

[jim may]

Something like this....

Sub CreateNewFile()
    Application.Dialogs(xlDialogSaveAs).Show _
        ActiveSheet.Range("T3").Value & " " & ActiveSheet.Range("T5").Value & ".xlsm"
End Sub

 

[JAB331]

Something like this....

Sub CreateNewFile()
    Application.Dialogs(xlDialogSaveAs).Show _
        ActiveSheet.Range("T3").Value & " " & ActiveSheet.Range("T5").Value & ".xlsm"
End Sub

How would i specify a folder for the files to be saved in?

 

[JAB331]

Any other advice from anyone?

The code suggested saves the whole workbook as the name i require but i only need to save one work sheet (named Report Template) as a separate workbook every time and i would like to choose set the folder the files will be saved in using the code also.

Thanks.