That code by itself won't produce an infinite loop - it will check each
cell in the Selection then stop.

Do you have event macros running?

In article . com,
"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