Thnanks alot dear.. it works.. :-)
On Mon, Apr 25, 2011 at 12:34 PM, STDEV(i) wrote:
> 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 = Fal
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 Dat
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(i