Macro to find & replace Text

[howard]

I have written to find text and then replace the text beginning with EA04- folowed by the original text


Eg of raw data

PO 1272 Northern 04 - DOC 3974


Data should like like this after running macro


EA04-PO 1272 Northern 04 - DOC 3974

 Sub findPlace()

    For X = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If InStr(1, Cells(X, 1).Value, "Northern", vbTextCompare) > 0 Then
            Cells(X, 1) = "EA04-&"
           
        End If
        
    Next X


End Sub

Your assistance regarding the above is most appreciated

 

[VoG]

Try

Sub findPlace()
Dim X As Long
For X = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    If InStr(1, Cells(X, 1).Value, "Northern", vbTextCompare) > 0 Then
        Cells(X, 1).Value = "EA04-" & Cells(X, 1).Value
    End If
Next X
End Sub

 

[howard]

Hi Peter

Thanks for the help, much appreciated

Howard