Thnanks alot dear.. it works.. :-)
On Mon, Apr 25, 2011 at 12:34 PM, STDEV(i) setiyowati.d...@gmail.comwrote:
when you say it is a challenge; then you have to have your own good
answer.
Sub Time_Test_Array2()
Dim DatRng As Range, LastRow As Long
Dim r As Long, i As Long
when you say it is a challenge; then you have to have your own good answer.
Sub Time_Test_Array2()
Dim DatRng As Range, LastRow As Long
Dim r As Long, i As Long
Application.ScreenUpdating = False
Range(E:E, K1:K3).Clear
Range(K1) = Timer
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Set DatRng
Hi Guy's
Need your help in this code.. in the following code...
Sub Time_Test_Array2()
Range(K1) = Now()
Application.ScreenUpdating = False
Range(E:E).Clear
LastRow = 0
LastRow = Range(A100).End(xlUp).Row
iVal = Range(A1:A LastRow).Value
ReDim strArray(1 To UBound(iVal))