Hi,

I have to find the 40 lowest numbers in a selection. Anyone know how to do this.

I tried the following but that gives me only the lowest number, not the 40 lowest ones:

sub macro1
Set Workrange = Selection
Workrange.Find(What:=MinVal , _
After:=Workrange.Range("A1"), _
LookIn:=x1values, _
LookAt:=x1whole, _
SearchOrder:=x1ByRows, _
SearchDirection:=x1Next, MatchCase:=False _
).Select
end sub

Any help is greatly appreciated.

Thanks a lot,
Manuel