For Each Loop Moving Down One Cell

[blackrock41]

Hi i have a For each loop that checks for a date in a range of cells if the date is 21 days old color cell grey. As it loops if any cells are empty i want it to move to the next cell down and continue(tired offset.select but did not work). Heres what i have so far. Thanks in advance
For Each rcell In Sheet2.Range("DatesofServices")
If IsEmpty(rcell.Value) Then

End If

Servicedate = rcell.Value
If Date >= Servicedate + 21 Then

rcell.Offset(0, -5).Interior.ColorIndex = 40

Else

rcell.Offset(0, -5).Interior.ColorIndex = xlNone

End If

If counter = 9 Then Exit For

Next rcell[/SIZE][/SIZE]

[HaHoBe]

Hi, blackrock41,

welcome to ExcelForum. Maybe try it like this:

Please Login or Register  to view this content.

Please use code tags like proposed in Rule #3. Thanks

Ciuao,
Holger

[sky1in5]

Please Login or Register  to view this content.

[blackrock41]

Thanks HaHoBe and sky1in5 both worked great.