find minimum non-blank value

[lallen]

Hi.

I have a statement which, for a given row, retrieves the value from column
2, of the form:

x = Sheets("Sheet1").Cells(RowNum, 2)

How do I rewrite this to retrieve the minimum non-blank value from columns 2
- 5?

Thanks in advance for your help.

....Larry

 

[Mike H]

Try this

x = WorksheetFunction.Min(Sheets("Sheet1").Columns(2))

Mike

 

[lallen]

Thanks Mike. That wasn't exactly what I was looking for, but it pointed me in
the right direction. What worked for me was:

x = WorksheetFunction.Min(Sheets("Sheet1").Range("B" & RowNum & ":E" &
Rownum))

Thanks again for the quick response.

....Larry