newbook name:=Collected1;
tcol = 1;
doc -e W
{
if(page.longname$ != "Collected1")
{
loop(ii,1,page.nlayers)
{
page.active = ii;
loop(iii,1,wks.nCols)
{
range rr = wks.col$(iii)
if (rr.name$ = "Mean") 
{
colforcopy = iii;
wrcopy
ow:=[Collected1]Sheet1!
c1:=colforcopy
c2:=colforcopy
dc1:=tcol
label:=1
format:=1;
tcol++;
}
}
}
}
}

// Add the missing semicolon, 
// and declare a range for a column by its index directly 
// since wks.col is used to access the column attributes
range rr = $(iii); 
// Use double equal-sign 
// while single equal-sign is used to assign value,  
// rr.name$ means the short name 
// while rr.lname$ means the long name
if (rr.lname$ == "Mean")