Hi benj,

I have take a little more time to look at the code. I think you need to make the following changes:

While Not IsEmpty(.Cells(i, 1).Value)

If Month(.Cells(i, 4).Value) = p And Year(.Cells(i, 4).Value) = q Then
(Note the dots before CELLS as suggested in previos post)

End If
i = i + 1 (otherwise you can get caught in a loop if the selection is False)

HTH

Art