Select Case within For loop not copying sheets to a new workbook

Greetings from an amateur VBA coder.

I'm trying get VBA to create a new workbook where I only want to pluck 7 values from the column I'm evaluating (column C). The values are "IMA HIGH", "IMA HIGH (CCI)", "IMA CDN", "IMA BAL", "IMA BAL (CCI)", "IMA NA" and "IMA US". The column won't always have all 7 of these values, which is fine, I only want the info if ANY appear. I took existing code from another module that copies new workbooks properly. Then tried to create a For Loop that specifically evaluates the range and then Select Case to copy other worksheets in the existing workbook to a new workbook if the value shows up in the list

The current challenges:
- I haven't had any success in getting the data copied over without it copying the same worksheet over and over.
- I am unsure if my Case parameters are properly differentiated (ie. will "IMA HIGH" also cause the "IMA HIGH (CCI)" worksheet to be copied over as well)
- My preference is to have the For loop read the C range until it reaches the end of the list as opposed to having a set range

The code I have so far is the base I've been working from, any pointers are greatly appreciated,
Dan

Please Login or Register  to view this content.

XeRo Solus thanks for the reply. I want it to read only the cells in the C column. Am I incorrect in using the offset?

Norie, the workbook and worksheet I'm trying to loop through is the existing one. Hoping to get the loop to copy the data I need into the new workbook via the loop