How to apply the codes for 2 columns in For each... in...

I want to apply the code below for Column T without Copy the same codes.
Apply for both Column S and Column T

Any way to do this ?
Thanks in advance .

For Each rng In Wkb1.ActiveSheet.UsedRange.Columns("S").Cells
        str = WorksheetFunction.Vlookup(rng.Value, Wkb2.ActiveSheet.UsedRange.Columns("J:P"), 7, False)
        str2 = WorksheetFunction.Vlookup(rng.Value, Wkb2.ActiveSheet.UsedRange.Columns("J:N"), 5, False) 'reject column
                
        If Err.Description = "" Then ' ID found...
                If str = "Open A/R" Or str = "Merged" Then
                    rng.Interior.Color = RGB(0, 0, 255) ' blue
                Else
                    rng.Interior.Color = RGB(0, 255, 0) ' green
                End If
                
             ' Reject column
                If str2 = "2" Then
                    rng.Interior.Color = RGB(255, 255, 0) ' yellow
                Else
                'do nothing
                End If
        Else ' no ID found...
            Err.Clear
        End If
    Next rng

Try changing
For Each rng In Wkb1.ActiveSheet.UsedRange.Columns("S")Cells
to
For Each rng In Wkb1.ActiveSheet.UsedRange.Columns("S:T")Cells

See what happens.

Hi there,

Assuming the above code works, make this line of code the very first line in your above procedure...

For Each varMyCol In Array("S", "T")

...and this line the very last piece of code in your above procedure:

Next varMyCol

Regards,

Robert

Try this:

Sub Macro2()

    For Each varMyCol In Array("S", "T")
        For Each Rng In Wkb1.ActiveSheet.UsedRange.Columns(varMyCol).Cells
        
            On Error Resume Next
                str1 = WorksheetFunction.VLookup(Rng.Value, Wkb2.ActiveSheet.UsedRange.Columns("J:P"), 7, False)
                str2 = WorksheetFunction.VLookup(Rng.Value, Wkb2.ActiveSheet.UsedRange.Columns("J:N"), 5, False) 'reject column
            On Error GoTo 0
            
            If Err.Description = "" Then ' ID found...
                If str1 = "Open A/R" Or str1 = "Merged" Then
                    Rng.Interior.Color = RGB(0, 0, 255) ' blue
                Else
                    Rng.Interior.Color = RGB(0, 255, 0) ' green
                End If
                     
                'Reject column
                If str2 = "2" Then
                    Rng.Interior.Color = RGB(255, 255, 0) ' yellow
                Else
                    'do nothing
                End If
            Else 'no ID found...
                Err.Clear
            End If
        Next Rng
    Next varMyCol
    
End Sub

Like I said at the beginning - my examples are based on your code working

From that error message it would seem that the rng variable hasn't been set to anything.

Please don't quote entire threads - only specific parts to support your request.

Good luck with it.

Robert