done EVER use Selection as the range for a loop.
Selection is directly tied to the interface, and in fact when you say
..activate, you change the selection and the way the loop will work.

Better to specify which cells you want to cycle through..

Try
For each rCell in Range("A1:A200")



"Naji" wrote:

> I am getting an infinite loop when I run this code and today's date
> isn't found. I'd like it to do nothing if it's not found. How would I
> do that ?
>
> For Each rCell In Selection
> If rCell.Value = Date Then Range(rCell.Address).Offset(1, 0).Activate
>
>
>
>
> Next rCell
>
>