Try this

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

Mike

"lallen" wrote:

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