Hi!

Can someone show how to declare the Decimal variable type using CDec function?

The following codes do not work. Run time error 6 - Overflow

Sub Test()

Dim Data(300000) As Long
Dim AC As Long

For AC = 1 To 300000
Data(AC) = Data(AC - 1) + AC
Next

End Sub