Follow up question:

I have made great progress on the macro I'm creating but I tried to
make one change and something broke.

I originally had dates as values in column B, but it occured to me
that a formula to generate the date might be useful for future
purposes. So rather than enter 4/10/09 and so on into each cell for
the moment I put 4/10/09 into cell B2 and in cell B3 and below I put
the formula =B2 +1 and copied this formula down the column. Additional
I change the LookIn spec of the Find statement to:

LookIn:=xlValues.

But this hacking has broken the Find function as it no longer locates
today's date.

Any suggestions on what I'm not doing cirrectly?


With rngColB
Set rngToFind = .Find(What:=dateToday, _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
End With



John Keith