If it’s possible for you to upload a “safe” (non-confidential, no personal data) copy of your workbook to zippyshare, then I would have much better idea of what is going on.

The one thing I can mention right off is that this snippet is probably not what you are looking for:

Dim myColArray As Variant
myColArray = Array(22, 19, 20, 18, 31, 28, 41)' include column 22?

For lCol = 0 To UBound(myColArray)
   rawData = Sheets(myColArray(i)).Range("A2:AW" & _
                    myColArray(i).Range("A3446").End(xlUp).Row)    ' finding data area

Let’s break that down:

myColArray = Array(22, 19, 20, 18, 31, 28, 41)

defines an array that contains a series of numbers meant to reference specific Columns. 22, 19, etc.

So far, so good.

For lCol = 0 To UBound(myColArray)

loops through the Array elements, such that lCol will equal 0, then, 1 then 2, until it reaches the number of elements in the array.

Still, so far, so good.

rawData = Sheets(myColArray(i)).Range("A2:AW" & _
                    myColArray(i).Range("A3446").End(xlUp).Row)

This is where we run into problems You used myColArray(i). Note the “i”. You have never set “i” equal to anything, so as far as VBA is concerned, it is always going to equal 0. Therefore, myColArray(i) will always equal 22, since that is the first (or “0”) element of the myColArray array. Maybe you meant to use lCol since that is your loop variable, but I don’t think even that will help, because…

You then use myColArray(i) in Sheets(myColArray(i)). Therefore, you are asking VBA to reference Sheet(22). In fact since i will always equal 0, you are always going to reference Sheet(22). I don’t know whether or not you actually have a Sheet(22) in your workbook, but even if you do, I’m pretty sure that that is not what you are trying to reference. I say that because you said you wanted to reference specific columns, not sheets.

Click Here Before Posting Data or VBA Code —> How To Post Data or Code.