VBA Range question

[remstadt]

I am having trouble assigning to a range. Assume that I am passing a column range into the function. How can I modify the following to get it to assign a value to my_range?

Function assign_me(ByRef my_range As Range) As Double
Dim my_array As Variant
my_array = myrange.Value
For I = 1 To UBound(my_array, 1)
my_range(I, 1).Value = I
Next I
assign_me = 0#
End Function

 

[RoryA]

If you are trying to call that function from a cell, it will not work.

 

[remstadt]

Is there a way to do it? I would like to make a function that is vector valued or array valued, and callable from the spreadsheet.

 

[RoryA]

Functions should just return values. Don’t attempt to manipulate other cells.