G'day there Bernie,

For Each myArea In dateRanges.Areas
If myArea.Rows.Count 1 Then

Well, it's simple when you put it like that!!!! <g

Thanks very much. I've not tried it yet, but I at least understand
what you've written and how it works. I can't see any reason why this
shouldn't do the trick and I'll try it this afternoon. I can't try it
this morning as my wife is making me go to the gym and then do some work
about the house. One day when I grow up I'll have a life of my own =)

Thanks again, I appreciate your help.

--
See ya,
Ken McLennan
Qld, Australia