Replace function adds carriage return

[AJS]

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