Roedd <<Schizoid Man wedi ysgrifennu:

Hi,

I have a single column of numbers from 1 to 10. I've written the
following function to replicate these numbers in another column using
the matrix enter (Ctrl-Shift-Enter).

Your output array needs to be two dimensional:

Public Function copyArr(wk As Range) As Integer()

Dim outArr() As Integer
Dim i As Integer

i = wk.Rows.Count

Dim c As Integer
ReDim outArr(1 To i, 1 To 1) As Integer

For c = 1 To i
outArr(c, 1) = wk(c)
Next c

copyArr = outArr

End Function

HTH

Rob