Multiple Criteria Find & Replace
You don't need to loop, you can use the Replace function directly on
the entire range.
Sub findreplace()
With Sheets("Sheet2").UsedRange
.Replace What:="1", Replacement:="Red"
.Replace What:="2", Replacement:="Green"
.Replace What:="3", Replacement:="Blue"
End With
End Sub
On Oct 20, 11:05*am, muddan madhu wrote:
Sub findreplace()
Dim cell As Range
For Each cell In Sheets("sheet2").UsedRange
* cell.Replace What:="1", Replacement:="Red"
* cell.Replace What:="2", Replacement:="Green"
* cell.Replace What:="3", Replacement:="Blue"
Next
End Sub
|