When you write a code in Worksheet_Change event and change the value, it is always better to enabelevents set to false/true, otherwise unnecessary event is called.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Not Intersect(Target, Range("F10:F1000")) Is Nothing Then
If (Target(, 0).HasFormula) + (Target(, 0).Value <> "") Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row, "A") = "=IFERROR(INDEX(ENTRY_SSP,MATCH(RC[5],ENTRY_CODE,0)),"""")"
Cells(Target.Row, "B") = "=IFERROR(INDEX(ENTRY_NAMES,MATCH(RC[4],ENTRY_CODE,0)),"""")"
Cells(Target.Row, "C") = "=IFERROR(INDEX(ENTRY_MANID,MATCH(RC[3],ENTRY_CODE,0)),"""")"
Cells(Target.Row, "D") = "=IFERROR(INDEX(ENTRY_NNN,MATCH(RC[2],ENTRY_CODE,0)),"""")"
Cells(Target.Row, "E") = "=IF(ROW()=10,""1"",R[-1]C+1)"
Application.EnableEvents = True
End If
End Sub
Bookmarks