i need to replace all the cells in spesific sheet that include spesific
string with other.
i did the following code:(but since there are lot of cells in sheet , it is
very very havy. is there a better way? )

Workbooks(Activebook).Sheets("mySheet").Select
Cells.Select

mystr = "xxx"
For Each cell In Selection
If (InStr(cell.Value, mystr) = 1) Then
cell.Replace What:=mystr, Replacement:="", LookAt:=xlPart,
SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False,
ReplaceFormat:=False

End If
Next cell


--
Miri Tz.