Perhaps such a code, placed in the sheet module, will be enough:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge = 1 Then
If Not Intersect(Target, Me.ListObjects(1).ListColumns(4).DataBodyRange) Is Nothing Then
If UCase(Target.Value) = UCase("Extend") Or UCase(Target.Value) = UCase("Modify") Then
Application.EnableEvents = False
With Target
.Offset(1).ListObject.ListRows.Add .Row + 1 - Me.ListObjects(1).DataBodyRange.Row + 1, True
.Offset(1, -2).Value = "Please add the product number"
.Offset(1, -1).Select
End With
Application.EnableEvents = True
End If
End If
End If
End Sub
Artik
Bookmarks