Change Test of Cell based on Value in VBA

[Jones1413]

Hello,

I need to write a VBA macro that will change the text of a cell based on the value already in the cell. For example, the cell can be anywhere in Column A and if the cell value equals "Jones1413" I want to change the text of that cell to "BJones". The rows of data can change and the value will not be in the same cell every time the report is ran.

 

[Joe4]

I think we need some more details, such as:
1. Where is the "key" that tells us what we are looking for, and what we want to change it to?
2. How is this VBA code to be run? Are you going to do it manually, or do you want it to happen automatically?
If automatically, what "action" should trigger the code to run?

 

[EXCEL MAX]

This example describes simple find word and replace...

Private Sub ReplaceWord()

    Dim vInput1 As String, vInput2 As String, vNR As Long, vF As Range
    
    vInput1 = InputBox("Input word to find")
    vInput2 = InputBox("Replace word with...")
    vNR = Cells(Rows.Count, "A").End(xlUp).Row
    Set vF = Range("A1:A" & vNR).Find(vInput1)
    If Not vF Is Nothing Then
        Range("A" & vF.Row) = vInput2
    End If
    
End Sub