Find string and enter new string in another column

[I3atnumb3rs]

Hello,

When the string "Cancelled" appears in column A I want to enter CANCELLED as a string in column G. My code doesn't seem to work and I have no idea why.

Sub ChangeCxlProgStatus()




Dim x As Long


For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Select Case UCase(Cells(x, 1))


Case "Cancelled"
Cells(x, 7).FormulaR1C1 = "CANCELLED"


End Select
Next x


End Sub

 

[mikerickson]

You are using UCase in the Select Case statement, but all of the cases listed test for mixed case strings.
Try

Sub ChangeCxlProgStatus()
    Dim x As Long

    For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Select Case UCase(Cells(x, 1))
            Case "CANCELLED"
                Cells(x, 7).FormulaR1C1 = "CANCELLED"
        End Select
    Next x
End Sub

 

[I3atnumb3rs]

worked thanks!