Add test to end of cell If a value is present in another cell

[zack8576]

When column M contains "GALV" (any row in a file), I need to add "GALV" to the end of the value in column K (same row)
why isnt my code below working? any help is appreciated. Test excel file also attached

Sub Galvanized()
    Dim lr4 As Long
    Set rng2 = Range("A1").CurrentRegion
    lr4 = rng2.Cells(Rows.Count, "K").End(3).Row
        
    For i = lr4 To 2 Step -1
        If rng2.Cells(i, 13) Like "*GALV*" Then
                rng2.Cells(i, 11).Value = rng2.Cels(i, 11).Value & " GALV"
        End If
    Next i
End Sub

2022100184.csv

Shared with Dropbox

www.dropbox.com

 

[Fluff]

In what way doesn't it work?

 

[zack8576]

In what way doesn't it work?

error message " Object doesnt support this property or method"

 

[zack8576]

In what way doesn't it work?

the error message is pointing at

rng2.Cells(i, 11).Value = rng2.Cels(i, 11).Value & " GALV"

syntax issue somewhere ?

 

[Fluff]

You're missing the 2nd L in Cells after the = sign.

 

[zack8576]

You're missing the 2nd L in Cells after the = sign.

wow, how did I miss that, thanks !

 

[Fluff]

You're welcome & thanks for the feedback.