Try this
Private Sub Worksheet_Change(ByVal Target As Range) Const Column_Y As Long = 25 If Target.Column = Column_Y Then Target.Offset(, 5) = Evaluate("=IFNA(INDEX(Names!K:K,MATCH(""" & Target.Value & """,Names!J:J,0)),""Not Found"")") End If End Sub