CurrentItem:=FWorkBook.Names.Items.item(1);
   CurrentValue:=CurrentItem.referstorange.value; //изначально там только заголовки и одна пустая строка.
   NameHandled:=false;

   If (parceFunction(pchar(currentName),CurrentValue,nameHandled)=0) and nameHandled
   then begin
       if VarIsArray(CurrentValue) then begin
         l1:=VarArrayLowBound(CurrentValue,1);
         h1:=VarArrayHighBound(CurrentValue,1);
         l2:=VarArrayLowBound(CurrentValue,2);
         h2:=VarArrayHighBound(CurrentValue,2);

         NewRange:=CurrentItem.referstorange.resize[h1-l1+1,h2-l2+1];

         S:='='+CurrentItem.RefersToRange.WorkSheet.Name+'!'+NewRange.Address;
         CurrentItem.refersto:=s;
       end;
       CurrentItem.referstorange.value:=CurrentValue;
  end;