What do you mean it doesn't work?

There's nothing in your code that shows you checked how it worked.

I could see that it worked by running this and looking at the immediate window
(ctrl-g in the VBE):

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

For intI = LBound(curExpense) To UBound(curExpense)
Debug.Print intI & "--" & curExpense(intI)
Next intI

End Sub

"musa.biralo" wrote:

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.

--

Dave Peterson