G'day there Bernie,

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

I tried it this afternoon and it worked like a charm. I just added
a few little bits 'n' bobs to catch empty variables and where "Range is
Nothing", and it's up and running.

Thanks once again for your assistance.
--
See ya,
Ken McLennan
Qld, Australia