Hi Oeldere,


You are pretty good. I am overlooked this function. Thanks a lot.

MsgBox Application.WorksheetFunction.Large(Range("A1:E10"), 1)
MsgBox Application.WorksheetFunction.Small(Range("A1:E10"), 1)