Can anyone tell me why this doesn't work. I have checked the locals window which confirms dteTme has 1 to 358 elements.
New to arrays and need some help.
Cheers
Mark
I currently get a subscript out of range error on the following line:
New to arrays and need some help.
Cheers
Mark
Code:
Sub testzone()
Dim DteTme()
Dim RoundedDteTme(1 To 358)
DteTme = Range("E3", Range("E3").End(xlDown))
x = 1
For Each element In DteTme
RoundedDteTme(x) = DteTme(x)
x = x + 1
Next element
End Sub
I currently get a subscript out of range error on the following line:
Code:
RoundedDteTme(x) = DteTme(x)