Hi ashncg
one possible way would be with the Lead Input sheet "Worksheet_Change"
Private Sub Worksheet_Change(ByVal _
Target As Excel.Range)
Dim myRange As Range
On Error Resume Next
Set myRange = Intersect(Range("F2:F10"), Target)
If Not myRange Is Nothing Then
If Target.Value = 4 Then
Target.EntireRow.Copy Destination:=Sheets("Closed Production").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
Target.EntireRow.Copy Destination:=Sheets(Choose(Target.Offset(0, -3).Value, "George", "Eddy", "Jack", "Travis", "John")).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
End If
End If
End Sub
Bookmarks