On Friday, February 20, 2015 at 1:11:47 PM UTC-5, isabelle wrote:
hi,

Function MySplit(rng As Range) As String
x = Split(rng, "$")
For i = LBound(x) To UBound(x)
If Not IsError(Application.Find("-", x(i))) Then r = r & Split(x(i), "-")(0) & " "
Next
MySplit = r
End Function

isabelle

Thanks Isabelle, that gets it done as well!