Here's another
Option Explicit
Sub SplitStuff()
Dim cel As Range
For Each cel In Range(("A2"), Range("a2").End(xlDown))
On Error Resume Next
cel.Value = Trim(Split(cel.Value, "-")(1))
On Error GoTo 0
Next cel
For Each cel In Range(("A2"), Range("a2").End(xlDown))
On Error Resume Next
cel.Value = Trim(Split(cel.Value, "to")(1))
Next cel
On Error GoTo 0
For Each cel In Range(("A2"), Range("a2").End(xlDown))
On Error Resume Next
cel.Value = Trim(Split(cel.Value, ">")(1))
Next cel
On Error GoTo 0
Columns("A:A").Replace What:="+", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns("A:A").Replace What:=",", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub
Bookmarks