Replace in VBA acting odd

[Oliver Dewar]

Hi All,

I have a macro that replaces a token in a string of text with the content of a cell. 99% of the time this works perfectly and the tokens are replaced.

Occasionally, excel decides it's going to replace every occurance of the token in the whole sheet! I've run this hundreds of times and it only happens once in every 300... odd.

Here's my code:

Sheets("Admin").Range("S10").Replace "*TOKEN*
", Sheets("Admin").Range("O20").Value

</P>
Is there any way to absolutely restrict the replace to that cell (S10)?

Or any suggestions as to what's going on?

 

[Norie]

Couldn't you just use something like this?

If Sheets("Admin").Range("S10") Like "*TOKEN* Then
    Sheets("Admin").Range("S10").Value = Sheets("Admin").Range("O20").Value
End If

 

[Oliver Dewar]

I haven't come across the 'Like' before... does that find part of a string within a string?

Also, the token is a word, being replaced by another word while the rest of the string stays the same, so replacing the whole of S10 with range O20 would delete all the rest of the string.