Getting multiple values between two different characters.

[SpencerC]

Hello all,

I have a list of values that look like this: ;Asphalt Late Model>Rear Suspension;Road Race>Rear Suspension


What I need to do is get all of the values between ; & >.


So in this example the output would be Asphalt Late Model;Road Race


Any help would be very appreciated, as I've been stuck on this one for a while.

 

[JLGWhiz]

Another macro solution

Sub t()
Dim c As Range, spl As Variant, i As Long, res As String
With ActiveSheet
    For Each c In .Range("A2", .Cells(Rows.Count, 1).End(xlUp))
        spl = Split(c.Value, ";")
        For i = LBound(spl) To UBound(spl)
            If spl(i) <> "" Then
                res = res & ";" & Left(spl(i), InStr(spl(i), ">") - 1)
            End If
        Next
        c.Offset(, 1) = res
        res = ""
    Next
End With
End Sub