Hi

Another option

Code:
Sub imptype()

    Dim c   As Range
    Dim a   As String
    
    Set c = Range("J1:J" & Range("J" & Rows.Count).End(xlUp).Row)
    a = c.Address
    
    c = Evaluate("=if(" & a & "=""aip"",""Implant Pass-through: Auto Invoice Pricing (AIP)"",""Implant Pass-through: PPR Tied to Invoice"")")

End Sub