Finding minimun from lap times

[spextacular]

Hi there,

I am trying to find the minimum (fastest lap) from a range of laps but my macro keeps returning zero? My range is selecting blank cells but if I adjust my range to miss these out it still returns zero.

Sub Fastest_Lap()
r = 3
c = 161
Do Until Cells(r, c) = ""
Set rng = Range(Cells(r, c + 1), Cells(r, c + 45))
p = WorksheetFunction.CountA(rng)
Cells(r, c - 137).Value = p
r = r + 1
Loop
End Sub

Thanks in advance for any help.

 

[Andrew Poulsom]

Welcome to the Board.

Why are you using CountA rather than Min?

 

[xld]

Why not just use

=MIN(FE3:GC1000)

 

[spextacular]

Oops yeah sorry pasted wrong bit in,

Sub Fastest_Lap()
r = 3
c = 161
Do Until Cells(r, c) = ""
Set rng = Range(Cells(r, c + 1), Cells(r, c + 45))
p = WorksheetFunction.Min(rng)
Cells(r, c - 137).Value = p
r = r + 1
Loop
End Sub

Cheers

 

[spextacular]

I found that my times were in text format so this is why it wouldn't work.

Cheers for your help anyway