![]()
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 20 And Target.Row > 5 Then If Target = "Rejected" Then Target.EntireRow.Copy Target.Offset(1).EntireRow.Insert Application.CutCopyMode = False End If End If End Sub
![]()
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 20 And Target.Row > 5 Then If Target = "Rejected" Then Target.EntireRow.Copy Target.Offset(1).EntireRow.Insert Application.CutCopyMode = False End If End If End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks