For Each Cell In ColorRange
            If Cell.Value = "BACKORDER" And (i = 0) Then
            Sheets(1).Copy After:=Sheets(Sheets.Count)
            Set Mech = ActiveSheet
            Mech.Name = inputWO + " " + "Mech"
            i = 1
        ElseIf Cell.Value = "ON ORDER" And (i = 0) Then
            Sheets(1).Copy After:=Sheets(Sheets.Count)
            Set Mech = ActiveSheet
            Mech.Name = inputWO + " " + "Mech"
            i = 1
        End If
        If Cell.Value = "ISSUED" Then
            Cell.EntireRow.Delete
        End If
    Next