There seems to be aproblem with my coding. It cant seems to work.
In my Userform, the customer name can be keyed in manually and from the customer name i want to auto fill in the rest of the blanks by searching for the customer name.

pic1.png



Private Sub SearchMember_Click()

Dim CustomerName As String
Dim StatusCustomer As String
Dim CustomerContact As Integer
Dim CustomerEmail As String
Dim CustomerAddress As String
Dim ContactMode As String

CustomerEmail = WorksheetFunction.VLookup(CustomerName, Sheets("Members").Range("A1:H43"), 5, False)


End Sub