Need to highlight cell with date

[MacroBB]

Hello all,

Can I get some help on how to use VBA to highlight cells in a daily report that have approximately 500 lines with multiple date columns? Only need to high light cells in Column B if it's equal to or later/bigger than Column A but earlier/smaller than any of the following column C to F? For example:

Date A	Date B (Column need to be highlighted)	Date C	Date D	Date E	Date F
Jan 10	Jan 9	Jan 9
Jan 10	Jan 11		Jan 12	Jan 12	Jan 13
Jan 15	Jan 15	Jan 9	Jan 15		Jan 13
Jan 15	Jan 16	Jan 15		Jan 16	Jan 17
Feb 1	Jan 31	Feb 1	Feb 1	Feb 1

What I would like to see:

Date A	Date B (Column need to be highlighted)	Date C	Date D	Date E	Date F
Jan 10	Jan 9	Jan 9
Jan 10	Jan 11		Jan 12	Jan 12	Jan 13
Jan 15	Jan 15	Jan 9	Jan 15		Jan 13
Jan 15	Jan 16	Jan 15		Jan 16
Feb 1	Jan 31	Feb 1	Feb 1	Feb 1

Thanks for your help!

 

[Micron]

That will require a re-write, which I can do but it's the last modification so make sure you've uncovered everything.
EDIT - unclear as to what that applies to - A/B columns or the range from C to F

 

[MacroBB]

Sorry, I wasn't clear with my last post.
I meant, need two different colors to highlight cells in Column B: e.g. RED if it's equal to or later/bigger than Column A but smaller than any of the following column C to F; and then GREEN if it's equal to or later/bigger than Column A and also equal to any of the following column C to F

 

[Micron]

It wasn't as big a deal as I though it would be. Try

Sub testRangeArray()
Dim ary As Variant
Dim Lrow As Long
Dim i As Integer, n As Integer, dblDate1 As Double, dblDate2 As Double
Dim blnGreater As Boolean, blnEqual As Boolean

Lrow = Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To Lrow
    blnGreater = False
    blnEqual = False
    dblDate1 = Range("A" & i)
    dblDate2 = Range("A" & i).Offset(0, 1)
    'compare col's A and B
    If dblDate1 <= dblDate2 Then
        ary = Range("C" & i & ":F" & i)
        For n = 1 To UBound(ary, 2)
            If dblDate2 < CDbl(ary(1, n)) And WorksheetFunction.IsNumber(CDbl(ary(1, n))) Then
                blnGreater = True
                Exit For
            End If
            If dblDate2 = CDbl(ary(1, n)) And WorksheetFunction.IsNumber(CDbl(ary(1, n))) Then
               blnEqual = True
               Exit For
            End If
        Next
    End If
    If blnGreater = True Then Range("A" & i).Offset(0, 1).Font.Color = vbRed
    If blnEqual = True Then Range("A" & i).Offset(0, 1).Font.Color = vbGreen
Next

End Sub

 

[MacroBB]

Worked perfectly, you have been a wonderful great help!! Thank you!

 

[Micron]

You're welcome.