VBA - Sending info to other workbook with userform

[mbeaulieu]

Good morning,

I have been trying to develop a code to send information from the userform of one workbook to another. It only sends one of the two fields. Please help.

Private Sub AddCustomerButton_Click()

Dim wkb As Excel.Workbook
Dim wks As Excel.Worksheet
Dim r As Range
Dim s As Range

Set wkb = Excel.Workbooks("PromoInfo.xlsx")
Set wks = wkb.Worksheets("EmpLoc")

If AddCustomer.Value <> "" Then
Set r = wks.Range("A1").CurrentRegion.Find(AddCustomer.Value)
If r Is Nothing Then
wks.Range("A1").End(xlDown).Offset(1, 0).Value = AddCustomer.Value
AddCustomer.Value = ""
End If
End If
If Location.Value <> "" Then
Set s = wks.Range("B1").CurrentRegion.Find(Location.Value)
If s Is Nothing Then
wks.Range("B1").End(xlDown).Offset(1, 0).Value = Location.Value
Location.Value = ""
End If
End If

Unload Me

End Sub