Sub FillArray()
Dim curExpense(364) As Currency
Dim intI As Integer
For intI = 0 To 364
curExpense(intI) = 20 + intI
Next
End Sub

this part is not running either ....why why why...i have no clue why
this is not running on my computer...

Please let me know if it runs on your's.