adding verbiage to the end of a cell
Below sub will check F column for "total for NY" when found it will
change it to "total for NY < 10,000".
And color the row between A and K columns.
Please make necessary changes to your needs.
Rgds
Sub color()
Dim rng As Range
Dim i As Range
With Worksheets("Sheet1")
Set rng = .Range("F2", .Range("F" & Rows.Count).End(xlUp))
For Each i In rng
If i.Value = "total for NY" Then
i.Value = "total for NY < 10,000"
Range("a" & i.Row & ":" & "k" & i.Row).Interior.ColorIndex = 6
End If
Next i
End With
End Sub
|