Hi Claus,

I am trying to incorporate an error catcher similar to the one in the previous code, but alas, I can't sort out the equivalent of "If intValVar = 0 Then" in the new faster code.

If intValVar = 0 Then
MsgBox "No items found"
Exit Sub
Else

Sheets("Darcy-Weisbach").Range("F6") = WorksheetFunction.Max(intVStore())
End If

Thanks.

Howard