Hi,
Please can someone assist me with my code below, i am tying to get this to work, i input data in one sheet and then want to store the data in another workbook, if i save the data to the same workbook the code works fine, but when i attempt to save to another workbook, it records the data but does not close the workbook, i am also looking at sending this out to multiple users, have researched so many alternatives but none seem to work, there is talk about ADO but my knowledge is low on that...hoping that someoone can help with this...

Private Sub Auto_Open()

MsgBox ("Welcome to the Internal Collaboration Workbook")
Worksheets("Sheet1").Activate
Range("c2").Activate

End Sub
Sub RecordSale()

Dim agent As String, varResponse As Variant
Dim dateofc As String, curCommission As String
Dim introfeedback As String, smfeedback As String
Dim posfeedback As String, prodfeedback As String
Dim closefeedback As String, mnumber As String
Dim mname As String, sm As String
Dim mtype As String, cperson As String

On Error GoTo Handler:

Worksheets("Sheet1").Activate

agent = Range("c2").Value
dateofc = Range("c3").Value
introfeedback = Range("b19").Value
smfeedback = Range("c19").Value
posfeedback = Range("e19").Value
prodfeedback = Range("f19").Value
closefeedback = Range("g19").Value
mnumber = Range("f2").Value
mname = Range("c4").Value
sm = Range("f5").Value
mtype = Range("f4").Value
cperson = Range("f6").Value

Worksheets("sheet3").Visible = False

Worksheets("sheet3").Activate
Range("A2").Activate

Do

If ActiveCell.Value = "" Then Exit Do
ActiveCell.Offset(1, 0).Activate

Loop

ActiveCell.Value = mname
ActiveCell.Offset(0, 1).Value = dateofc
ActiveCell.Offset(0, 2).Value = mnumber
ActiveCell.Offset(0, 3).Value = agent
ActiveCell.Offset(0, 4).Value = sm
ActiveCell.Offset(0, 5).Value = mtype
ActiveCell.Offset(0, 6).Value = cperson
ActiveCell.Offset(0, 7).Value = introfeedback
ActiveCell.Offset(0, 8).Value = smfeedback
ActiveCell.Offset(0, 9).Value = posfeedback
ActiveCell.Offset(0, 10).Value = prodfeedback
ActiveCell.Offset(0, 11).Value = closefeedback

Worksheets("Sheet1").Activate

varResponse = MsgBox("Your Feedback has been recorded, thanks" & curCommission & ". Please select another merchant from the dropdown list", vbYesNo)

Application.ScreenUpdating = False

If varResponse = vbNo Then

Worksheets("Sheet1").Activate
Range("b2").Value = ""
Range("b3").Value = ""
Range("b19").Value = ""
Range("c19").Value = ""
Range("e19").Value = ""
Range("f19").Value = ""
Range("g19").Value = ""

Application.EnableEvents = False
ActiveWorkbook.Save
ActiveWorkbook.Close

Else

Worksheets("Sheet1").Activate
Range("c2").Value = ""
Range("c3").Value = ""
Range("b19").Value = ""
Range("c19").Value = ""
Range("e19").Value = ""
Range("f19").Value = ""
Range("g19").Value = ""

End If

Application.ScreenUpdating = True

Exit Sub

Handler:

MsgBox ("Please contact Sabir 0313673651")

End Sub