names default to here(1);
dt = current data table();
cols = dt << get selected columns();
oldColNames = Transform each({col}, cols, col << get name);
newColNames = Words(get clipboard(),"\!n\!t,;");
set clipboard(concat items(oldColNames, "\!t")); // poor man's CTRL + Z
if(!(nitems(newColNames)==nitems(oldColNames)),
Caption("# colnames doesn't match");
);
for each( {col,idx}, cols, col << set name(newColNames[idx]));
Caption (Char(N items(newColNames)) || " column names replaced");
wait(1);
Caption(remove);