Set wordcloud = Selection
Can't answer the rest as I'm not sure what the question is.