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