Bob,

Of course I knew you weren't chiding me! I really appreciated the
help.

As for :

The top left cell in the range("animals") can be referred to as:
range("animals").range("a1")

It took a while to get my head around this. I am used to the Cells
property, and it took a while to realise that these do the same thing
:

For i = 1 To Cnt

Value = Range("My_Range").Range("A1").Offset(i - 1, 0).Value
Value = Range("My_Range").Cells(i, 1).Value

Next i

Two points : the Cells property "offset" is different to that used in
Offset, and I always like to use the .Value property rather than use
the default (I don't suppose it matters too much and it makes the code
it easier to follow).

I much prefer the Cells property ….. the Range object returned by the
Cells property is relative to the upper left cell of the referenced
Range.

Regards,

Mark