Word pulling data from Excel: For-Each loop on read input

I have two documents: A Word document that will be dynamically generated (it will not exist before the macro is run), and an Excel spreadsheet containing the data that will need to be put into it. The macro is in a secondary Word document that will be accessed by multiple users with different computer configurations, so the code needs to remain simple (in terms of libraries and settings). MAIL MERGE CANNOT BE USED IN THIS INSTANCE so don't even suggest it, please.

I have had issues with Excel pushing the data into Word, so I am having Word pull the data into Excel with greater success, so this code is what is in Word, not Excel.

Please Login or Register  to view this content.

Right now, it works, but it will take hundreds of lines of code to finish it.

After writing the above, it occurs to me that the Worksheet "Grouping with Activity-Included" has all the entries I need to break out in its first column, so if I can write a For-Each specifying that column, and enter in the values pulled from its corresponding column to the right, the code can be much shorter.

Actual Question:Can someone give me an idea on how to write this For-Each that looks into Excel to find out how many times to iterate?

Thanks!

Here is what I would like it to do, but something in my syntax is wrong. it stops at the For Each line saying "Type Mismatch":

Please Login or Register  to view this content.