For loop to rename cell

[SCPbrito]

How can I write a for loop to to go through cells in a column and looks for "Customer A" "Customer B" and renames those to "Customer C"

 

[Alex Blakenburg]

How about:

Sub ConvertColI()

  Dim i As Long
  
  Application.ScreenUpdating = False
  For i = 1 To Range("H" & Rows.Count).End(3).Row
    Select Case Left(Range("H" & i).Value, 1)
      Case "6": Range("I" & i).Value = "Cellphone Repair"
      Case "7": Range("I" & i).Value = "Metro PCS"
      Case "8": Range("I" & i).Value = "Cricket"
      Case Else
        Select Case Range("H" & i).Value
            Case "WR_BALAJI_OTHER", "WR_BALAJI_CRICKET"
                Range("I" & i).Value = "Cricket"
        End Select
    End Select
  Next
  Application.ScreenUpdating = True
End Sub

 

[SCPbrito]

That worked perfectly thank you

 

[Alex Blakenburg]

Thanks for letting us know. Glad we could help.