Replacing data in one cell with second name found in another cell

[Livin404]

Greetings,
I'm hoping someone might be able to figure out how to replace a three letter acronym in one cell with the second acronym found in another through VBA. In the example I'm looking to replace BGR found in Column G with LAX only (LAX) found in Column N. There will be no dashes nor space when LAX replaces BGR. This would run true for the entire worksheet "72 Hr" worksheet. LAX is just an example there can be thousands of different three letter codes found is the second code in Column N. If there is no second three letter code then just ignore. In addition, YQX is the only other code in Column G I would like this process to work for. This has to be accomplished for the next VBA I have is to delete all Columns including Column N and conduct a VLOOKup through VBA. Both of those I already have completed. Thank you,

 

[GWteB]

I hope this works.

A visual example causes in most cases additional clarification
See if this works for you ...

Public Sub Livin404()

    Dim oWs As Worksheet, rng As Range, c As Range, s As String

    Set oWs = ThisWorkbook.Sheets("72 hr")
    Set rng = Application.Intersect(oWs.[F:F], oWs.UsedRange)

    For Each c In rng
        On Error Resume Next
        s = Mid(c.Offset(0, 5), InStr(c.Offset(0, 5), c.Value) - 4, 3)
        On Error GoTo 0
        If Len(s) > 0 Then
            c.Value = s
        End If
    Next c
End Sub

 

[Livin404]

Thank you, it does indeed accomplish the change, but for everything. I've been looking where I can add

If CBool(InStr("|BGR|YQX|", "|" & c.Value & "|"))

Then in the VBA to look only for entries with BGR and YQX. Thank you,

 

[GWteB]

You are welcome and thanks for the feedback.
The way in which data to be compared with each other is offered or made available determines the chosen approach within the VBA code.