I have the following function which looks at a list of data when "Cust" -
(customers name) is specified and returns the sales rep and sales value. The
function finds the first occurence of that name in the list. I would like it
to display all occurences. I would be grateful for any ideas.


Private Sub Retrieve_Click()
Dim Cust As Range
With Range("Custdata")
Set Cust = .Find(CUstname.Value)
If Cust Is Nothing Then
MsgBox ("Customer not found!")
CUstname.Value = " "
Exit Sub
Else
With Range(Cust.Address)
Salesrep = .Offset(0, 3)
LinevalueGBP = .Offset(0, 16)
End With
End If
End With
End Sub

Thank you,

Esther