Hello,
Please help me with the following code, I canīt make it run properly.
On column B, I need to find all the cells which have the word "SALAME" in it. Then, in all its correspondent rows, I need to replace the word "AURORA ALIM." to the word "AURORA", which will be located on the column D.
Sub FindReplace()
Dim sht As Worksheet
Dim fnd3 As Variant
Dim rplc3 As Variant
Dim cat As String
cat = Range(B).Value
fnd3 = "AURORA ALIM."
rplc3 = "AURORA"
If cat = "SALAME" Then
For Each Row In ActiveSheet
sht.Cells.Replace what:=fnd3, Replacement:=rplc3, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next
End If
Bookmarks