Whops you were right about the or not bit. Ive corrected that. I cant quite see the other issue your taking about based on the small example compared to the one Ive got

Ive currently got an error at the end on Next i (Next without for is the error)

Is it possible to show where I have gone wrong based on the example below? Im basically, in a field and checking one field against the other for each group. When Ive either set it to 0 or found no problems I continue to the next field until I have no rows left


For i = 7 To lrow
    'If Job_Family_Desc = AA use the AA range as a validation list
            If .Range("I" & i).Value Like "BPS*" Then
            If Not Range("K" & i) = 0 Or Not Range("K" & i) = 1 Or Not Range("K" & i) = 2 Or Not Range("K" & i) = 3 Or Not Range("K7") = 4 Or Not Range("K" & i) = 5 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Or Not Range("K" & i) = 12 Or Not Range("K" & i) = 13 Or Not Range("K" & i) = 14 Then
            Range("K" & i) = 0
                    
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select

            ElseIf .Range("I" & i).Value Like "CAH*" Then
            If Not Range("K" & i) = 0 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K7") = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Or Not Range("K" & i) = 12 Or Not Range("K" & i) = 13 Or Not Range("K" & i) = 14 Then
            Range("K" & i) = 0
                    
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                    
            ElseIf .Range("I" & i).Value Like "CAM*" Then
            If Not Range("K" & i) = 0 Or Not Range("K" & i) = 1 Or Not Range("K" & i) = 2 Or Not Range("K" & i) = 3 Or Not Range("K7") = 4 Or Not Range("K" & i) = 5 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Then Range("K" & i) = 0

               
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                    
            ElseIf .Range("I" & i).Value Like "CAT*" Then
            If Not Range("K7") = 0 Or Not Range("K" & i) = 1 Or Not Range("K" & i) = 2 Or Not Range("K7") = 3 Or Not Range("K7") = 4 Or Not Range("K" & i) = 5 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Or Not Range("K" & i) = 12 Or Not Range("K" & i) = 13 Then
            Range("K" & i) = 0

               
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                    
            ElseIf .Range("I" & i).Value Like "SCI*" Then
            If Not Range("K" & i) = 0 Or Not Range("K7") = 4 Or Not Range("K" & i) = 5 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Or Not Range("K" & i) = 12 Or Not Range("K" & i) = 13 Or Not Range("K" & i) = 14 Then
            Range("K" & i) = 0
            
                
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                    
            ElseIf .Range("I" & i).Value Like "SUS*" Then
            If Not Range("K" & i) = 0 Or Not Range("K" & i) = 1 Or Not Range("K" & i) = 2 Or Not Range("K" & i) = 3 Or Not Range("K7") = 4 Or Not Range("K" & i) = 5 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Or Not Range("K" & i) = 12 Or Not Range("K" & i) = 13 Or Not Range("K" & i) = 14 Then
            Range("K" & i) = 0
                
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                    
            ElseIf .Range("I" & i).Value Like "SPD*" Then
            If Not Range("K" & i) = 0 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Or Not Range("K" & i) = 12 Then
            Range("K" & i) = 0

                
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                    
            ElseIf .Range("I" & i).Value Like "TAL*" Then
            If Not Range("K" & i) = 0 Or Not Range("K" & i) = 5 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Then
            Range("K" & i) = 0
            
                
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                    
            ElseIf .Range("I" & i).Value Like "TRA*" Then
            If Not Range("K" & i) = 0 Or Not Range("K" & i) = 6 Or Not Range("K" & i) = 7 Or Not Range("K" & i) = 8 Or Not Range("K" & i) = 9 Or Not Range("K" & i) = 10 Or Not Range("K" & i) = 11 Or Not Range("K" & i) = 12 Or Not Range("K" & i) = 13 Or Not Range("K" & i) = 14 Then
            Range("K" & i) = 0
                
                    'And when you have done it you want to go down to the next row
                    Selection.Offset(1, 0).Select
                   
    'If Job_Family_Description Is empty then the file is done so we can come out of this IF THEN ELSE Condition
            ElseIf .Range("I" & i).Value = "" Then
            
        End If
        End If
    Next i 'Next without for
End With