For Each Next returns "Empty" when Data in Cell
I don't see anything technically wrong with your code if that is what you
want.
If you have a cell in Periods_Range that is greater than .001, then you
should have a value in your array.
You will have empty elements in the array corresponding to any cell that is
less than or equal to .001 or for any elements that exceed the number of
cells in Periods_Range up to the 100th element.
--
Regards,
Tom Ogilvy
"Matt Roberts" wrote in message
...
I have written a function with the intention of iterating the function
(rather than the workbook) but am having difficulty pulling the
information
through:
Public Function Iterative_LIBOR(Target As Double, Frequent As Double,
Periods_Range As Range, Swaps_Range As Range, Nominals_Range As Range,
LIBORs_Range As Range)
Cycle = 1
Freq = Frequent
DCF = 0
'Build the Discount, Period, LIBOR and Nominal Arrays
Dim Period_Array(1 To 100) As Variant
For Each ActualCell In Periods_Range.Cells
If ActualCell.Value 0.001 Then
Period_Array(Cycle) = ActualCell.Value
Else
End If
Cycle = 1 + Cycle
Next ActualCell
Although the Range Periods_Range is populated with data the "Watch" gives
each value as "Empty". Can any one help?
Thank you
--
Matt Roberts
|