Help : Macro to save a woorksheet to a new workbook using data from a cell as the file name

[srdear]

Is it possible for a macro to save a worksheet to a different workbook with the "file name" coming from a cells data? I have a rental form that has a cell that is the invoice number. It increments by 1 each time a new form is opened. I would really like to save each invoice to a different workbook with the new file name being the invoice number when the "Done" command button is clicked. The other option would be for a "save as" dialog box to open and then manually type in the new name. But heck, why do that when a macro could do it for me?

Any help would be appreciated.

Steve

 

[JLGWhiz]

Is it possible for a macro to save a worksheet to a different workbook with the "file name" coming from a cells data? I have a rental form that has a cell that is the invoice number. It increments by 1 each time a new form is opened. I would really like to save each invoice to a different workbook with the new file name being the invoice number when the "Done" command button is clicked. The other option would be for a "save as" dialog box to open and then manually type in the new name. But heck, why do that when a macro could do it for me?

Any help would be appreciated.

Steve

You will have to change the cell reference to the one acturally holding the invoice number. This macro uses cell A2. It also assumes that the data to be saved is on the first sheet of the workbook.

Sub saveInv()
Sheets(1).Copy
ActiveWorkbook.SaveAs Sheets(1).[COLOR=#b22222]Range("A2")[/COLOR].Value & ".xlsx"
ActiveWorkbook.Close False
End Sub

 

[srdear]

Thanks JLGWhiz...... i'll give it a try tonight.