Use Replace Function to Replace Whole Word

[exceere]

Hello,

How Can I Use the --Replace-- function to replace whole word (instead or partial)

Sub TestFindReplace()
    
    strToReplace = "Range(""Sh01Start""), Range(""Sh01StartEnd"")"
    
    strAfterReplace = Replace(strToReplace, "Sh01Start", "Sh01End", Start:=1, Count:=-1, compare:=vbBinaryCompare)
    
    Debug.Print strAfterReplace

End Sub

The result of the above sub is:

Range("Sh01End"), Range("Sh01EndEnd")

Expected Result With Whole Word Replacement is

Range("Sh01End"), Range("Sh01StartEnd")

Thank you.

[jindon]

Do you mean?

    strAfterReplace = Replace(strToReplace, """Sh01Start""", """Sh01End""", Start:=1, Count:=-1, compare:=vbBinaryCompare)

[exceere]

I want to use replace function to replace whole word for many strings not only for the above example. (the above macro is just for demonstration)

[exceere]

If this replace function doesn't replace whole word, is there an alternative function can replace whole word?

[jindon]

You said,

The result of the above sub is:

Range("Sh01End"), Range("Sh01EndEnd")

Expected Result With Whole Word Replacement is

Range("Sh01End"), Range("Sh01StartEnd")

So, I posted my suggestion.
Anything wrong?

[exceere]

This, just was an example to describe the idea (Replace Whole Word).

[jindon]

Then post a better sample.

[exceere]

jindon,

I appreciate your effort.