send userform data to another workbook

[rlkam]

[FONT=&quot]I have a userform that collects customer information and generates a receipt. Presently the receipt is generated in another tab within the same workbook. Each time the userform is used the receipt is over written.[/FONT]
[FONT=&quot]I would like to have the receipt put into another workbook and each receipt is put in a new tab at the end. So, if the form is run 10 times the other workbook has 10 tabs each containing a different receipt.[/FONT]

 

[ranman256]

user clicks save button, which runs: MakeReciept

Public Sub MakeReceipt()
Dim vName, vAddr, vAmt


   'get data from form
vName = txtName
vAddr = txtAddr
vAmt = txtAmtPd


  'post data to target wb
Workbooks.Open "c:\folder\receipts.xls"
Sheets.Add
Range("A1").Value = "Date"
Range("B1").Value = Date
Range("A2").Value = "Name"
Range("B2").Value = vName
Range("A3").Value = "Address"
Range("B3").Value = vAddr
Range("A4").Value = "Amt Paid"
Range("B4").Value = vAmt


ActiveWorkbook.Close True
End Sub