Example:
Code: Select all
with XLS.InternalNames.Add do begin
BuiltInName := bnPrintArea;
Definition := 'Sheet1!$A$1:$D$10' + ListSeparator + 'Sheet1!$A$12:$D$20';
end;
! Combo boxes didn't work.
Code: Select all
with XLS.InternalNames.Add do begin
BuiltInName := bnPrintArea;
Definition := 'Sheet1!$A$1:$D$10' + ListSeparator + 'Sheet1!$A$12:$D$20';
end;