Find/Replace in Excel

Dear mehmetcik ,

Thanks a lot for your reply, but i tried your code but it seems do the change to some cells and other don't

another thing to mention and that was my fault, i want to look for for any cell contains text "English Section details" then check if the cell under it contains text "Terms" ------> if yes then edit the text to "English Terms".

thanks in advance for your efforts

Cheers

Solved by Paul_Hossler:

Option Explicit
Sub Change_Text()

Dim rCell As Range

Application.ScreenUpdating = False

For Each rCell In Worksheets("Sheet1").UsedRange.Cells
If VarType(rCell.Value) <> vbString Then GoTo GetNextCell
If LCase(Trim(rCell.Value)) <> "english section details" Then GoTo GetNextCell
If LCase(Trim(rCell.Offset(1, 0).Value)) <> "term" Then GoTo GetNextCell

rCell.Offset(1, 0) = "English Terms"
'rCell.Offset(1, 0).Interior.Color = vbRed <<<< just for testing
GetNextCell:
Next

Application.ScreenUpdating = True
End Sub