sStr = Cells(row,6).Resize(1,4).Address(0,0,,True)
dblMin = Evaluate("Min(if(IsNumber(" & sStr & ")*(" & _
sStr & "<0)," & sStr & "))")

--
Regards,
Tom Ogilvy



"SUNIL" wrote in message
...
Min = Application.WorksheetFunction.Min(Range(Cells(Row% , 6), Cells(Row%,
9)))
if min=0 then.......

This command ignores blank cells , but i also want it to ignore cells
containing a value 0, or 0.0 or 0.00 , is this possible