Find and replace multiple values

[sofas]

Hello. I want to search column A for several values and replace them with a specific value. The following code does just that, but on the whole sheet.

Sub Replace()
Dim sheet As Worksheet
Dim MultiValues As Variant
Dim SingleValue As String
Dim y As Long
MultiValues = Array("SOT", "RTM", "N")
SingleValue = "ok"
For y = LBound(MultiValues) To UBound(MultiValues)
For Each sheet In ActiveWorkbook.Worksheets
sheet.Cells.Replace What:=MultiValues(y), Replacement:=SingleValue, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next sheet
Next y
End Sub

 

[johnnyL]

Try changing:
sheet.Cells.Replace

to:
sheet.Columns("A:A").Replace

 

[sofas]

Try changing:
sheet.Cells.Replace

to:
sheet.Columns("A:A").Replace

Thank you it was done successfully

 

[johnnyL]

Glad to help.