Strange that someone who knows about plyr (and is clearly not a beginning R user) is still using "for" loops.
likertcat <- c("1"="Not at all", "2"="To a small extent", "3"="To some extent",
"4"="To a moderate extent", "5"="To a large extent")
for(e in names(db[,9:44])) {
db[[e]] <- revalue(db[[e]], likertcat)
db[[e]] <- ordered(db[[e]], levels= c("Not at all","To a small extent",
"To some extent","To a moderate extent","To a large extent"))
} db<-data.frame(replicate(44,1:5))
likertcat <- as.ordered(c("Not at all", "To a small extent", "To some extent",
"To a moderate extent", "To a large extent"))
db[ ,9:44] <- lapply(db[,9:44], function(x) likertcat[x])