After reading in the sheets using:
for (i in 1:nrow(vv)) assign(vv$name[i], read_sheet(ss=vv$id[i], range = "A:AY", col_types = "cccccncncccccc