Hello all,

I need a function that have an initial date on a cell (ex: 25-05-2005) and
returns one year next to that date (ex:25-05-2006), and this is ok.

To this date that i have(25-05-2006) i need to count the number of months
that passed until now(in this case is 0 months) and if the month is 0 to 10,
fill in the current row the (25-05-2006) cell to red. If is in 11 to 12 fill
it in green. and if is it higher than 12, fill in yellow

my problem is, that the excelsheet does', select any cell and don't fill
anything

can you help me?
Thank You

PS: i'm trying in that way

Public Function give_date(initialdate, line)
......

Select Case numerofmonths
Case Is <= 10
Range("G" + Trim(Str(line))).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Case 11 To 15
Range("G" + Trim(Str(line))).Select
With Selection.Interior
.ColorIndex = 46
.Pattern = xlSolid
End With

Case Is 15
Range("G" + Trim(Str(line))).Select
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With

End Select

give_date = nextdate

End Function