Loop fails on 2nd iteration

My loop works for the first J but fail on the 2nd iteration and I can not figure out why

Thanks

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Capson,
Your dimension

Please Login or Register  to view this content.

No error, but I do not know what are you trying to do

I am tring to get the column range for each header name, then act on that range then clear that range and act on the next range gotten from the header

I am tring to get the column range for each header name, then act on that range then clear that range and act on the next range gotten from the header name

I can get it for the first loop J=0 I have:

Please Login or Register  to view this content.

Becomes

Please Login or Register  to view this content.

But For J=1 I get:

Please Login or Register  to view this content.

Should Become

Please Login or Register  to view this content.

But I get Subscript out of range for MsgBox arrData(1, CN(1)) = "Where"

So I do not think I am getting the range for the loop right after the first iteration or the Erase maybe is not being appled properly?

Thanks

Hi capson,
try

Please Login or Register  to view this content.

Thanks nilem, I can't believe I did not see that!!