VBA - Load Alternating column Array from values

[sbawnh]

Hello,
I want to load an array with values of my column headers like below.
vHeaders = .Range("A1:A10").Value

However, I only want the alternating columns added and for it to be dynamic based on columns from the endcol
Essentially without hardcode addresses
VHeadersA = .Range("A1","A3","A5","A7","A9").Value
VHeadersA = .Range("A2","A4","A6","A8","A10").Value

I've thought to hide columns, then add the values of the visible headers, but It only loads the first value to a variable

 

[offthelip]

Your request is ambiguous because you state you want alternating columns, but then give a range with alternating rows , which do you want??

 

[offthelip]

If you really want two arrays with alternate columns this code will do it for you
It will write the results to sheets 2 and 3:

Sub test()
Dim colA()
Dim Colb()
inarr = Range("A1:L20")
Ncols = Int((UBound(inarr, 2) + 1) / 2)
Nrows = UBound(inarr, 1)
ReDim colA(1 To Nrows, 1 To Ncols)
ReDim Colb(1 To Nrows, 1 To Ncols)
For i = 1 To Ncols
 
  For j = 1 To Nrows
   colA(j, i) = inarr(j, 1 + (i - 1) * 2)
  Next j
Next i
For i = 1 To Ncols
  If i * 2 > UBound(inarr, 2) Then Exit For
  For j = 1 To Nrows
   Colb(j, i) = inarr(j, i * 2)
  Next j
Next i

With Worksheets("Sheet2")
 .Range(.Cells(1, 1), .Cells(Nrows, Ncols)) = colA
End With
With Worksheets("Sheet3")
 .Range(.Cells(1, 1), .Cells(Nrows, Ncols)) = Colb
End With
End Sub

 

[sbawnh]

Offthelip! Thank you so much for this code. I really appreciate it.

Sorry about the typos where I changed the row's not the columns. You've got it right