There's probably a clever, one line piece of code that will do that. But one easy way is to add the cell values into the array one at a time:
Dim i as Integer
For i = 2 to 12
PointsX(i - 2) = exApp.Worksheets("fatiguedata").Range("B" & i).Value
Thanks! Yes i hope there is a more clever way of doing it. I did it in a similar manner as below to get it working.
For i = 0 To row
PointsX(i) = exApp.Worksheets("fatiguedata").Cells(i + 2, 1)