Split a number

My code won't work if your numbers are delimited differently. Try replacing

splitStr = Split(strToSplit, ", ")

with

splitStr = Split(strToSplit, ",")

in your workbook. This will work if your numbers are separated by a comma only (as opposed to a comma followed by a space like I originally assumed).

I hope this helps