Using Cells.Replace on limited range

[inarbeth]

Within a module I want to replace certain text strings in a range with other text strings.
I have tried this code but it runs on the whole sheet.

<code>Range("E6:E12").Select

Cells.Replace What:="C/O", Replacement:="c/o"
Cells.Replace What:="Llp", Replacement:="LLP"
Cells.Replace What:="LTD", Replacement:="Ltd"
</code>
Is there a way to limit the cells the replacement works on?

 

[VoG]

Try

With Range("E6:E12")
    .Replace What:="C/O", Replacement:="c/o"
    .Replace What:="Llp", Replacement:="LLP"
    .Replace What:="LTD", Replacement:="Ltd"
End With

 

[Andrew Poulsom]

Try using Selection instead of Cells.

 

[inarbeth]

Thanks guys