Hello All,

This is very similar to another question I asked previously, but with some differences.

I have a column of data with a date in the format:

Jan 11, 2011
Feb 10, 2011
Dec 5, 2010
Nov 12, 2010
Mar 5, 2011

Etc

I need to identify the month and compare it to the current month So the output would be

Jan 11, 2011 -> Past Due
Feb 10, 2011 -> Current Month
Dec 5, 2010 -> Past Due
Nov 12, 2010 -> Past Due
Mar 5, 2011 -> CM+1

I think the code would look something like this

    For Each cell In Range("N2", Cells(Rows.Count, "N").End(xlUp))
        Select Case Date - cell.Value
            Case Is >=  (a month in the past)
                cell.Offset(, 1).Value = "Past Due"
            Case Is >= (current Month)
                cell.Offset(, 1).Value = "Current Month"
            Case Is >= (Next Month)
                cell.Offset(, 1).Value = "CM+1"
            Case Is >= (Month After)
                cell.Offset(, 1).Value = "CM+2"
            Case Else
                cell.Offset(, 1).Value = "Beyond"
        End Select
    Next cell