I'm trying to set up a macro to replace numbers in a selection with their subscript equivalent. However, when I execute the macro it adds a carriage return at the end of the selection. Any idea why / what I'm doing wrong?
A barebones example of the code is below:
Sub SubScriptNumbers() Dim rng As Range Set rng = Selection.Range rng = Replace(rng, "2", ChrW(8322)) End Sub