no need to reply, I see that by using find and replce to replace '-*' works. i.e.
Range("?:?").Select
Selection.Replace What:="-*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False