VBA find and replace for specific column

[Mr2017]

Hi

I'm using the code below to find the word 'Thomson's' and replace it with 'Refinitiv'

Although the code works, it adds an extra space at the end of the word 'Refinitiv'

Does anyone know why this would be?

The sample data I'm using is below - ie the word 'Thomson's' is in cells A2, B2 and C2. And I just wanted to replace the data in one column:

Thomson's	Thomson's	Thomson's

Sub ReplaceThomsons()


    Columns("C").Replace What:="Thomson's", _
                            Replacement:="Refinitiv", _
                            LookAt:=xlPart, _
                            SearchOrder:=xlByRows, _
                            MatchCase:=False, _
                            SearchFormat:=False, _
                            ReplaceFormat:=False
End Sub

 

[kweaver]

I works as expected for me.
Is it possible you started w/a space after the name in C2?

 

[Mr2017]

Yes!!

You're right, @kweaver !!!

Thanks for spotting that and for the prompt response!

It's much appreciated!!

Thanks again!