I have a column formatted as text. I have data that looks like this: "1 through 5" or "2 through 14". My macro does a find and replace:

Range("D2:D100").Replace _
What:=" through ", Replacement:="-"

My result is not what I want; it gives me dates. Desired outputs are "1-5" or "2-14".

What do I need to do to accomplish this?