Nice code MickG.

Obj.List = Dic.keys