string - excel vba split text - Stack Overflow
You can do this in a single shot without looping using the VBA equivalent of entering this formula, then taking values only as a formula =IF(NOT(ISERROR(FIND("-",A1))),RIGHT(A1,LEN(A1)-FIND("-",A1)-1 ),A1) code Sub Quicker() Dim rng1 As Range Set rng1 ......