VBA - maximum and minimum extraction

**luv2glyd** · 07-20-2008, 10:40 AM

I'd like to have a macro that looks at 2 or 3 cells in a spreadsheet and simply extracts their max or min, with the least amount of code such as this:

max_value = Maximum(Worksheets("Sheet1").Range("D49").Value, Worksheets("Sheet1").Range("D55").Value)

How can this be done?

Thanks

**Ron Coderre** · 07-20-2008, 10:58 AM

Not sure exactly what you're looking for.

Here's something to play with:

Sub GetMaxVal()
    Dim max_value
    max_value = WorksheetFunction.Max([Sheet1].Range("D49", "D55"))
    MsgBox max_value
End Sub

Can you work with that?

**luv2glyd** · 07-20-2008, 12:27 PM

yes - exactly what I need. Thank you

**shg** · 07-20-2008, 01:18 PM

max_value = WorksheetFunction.Max([Sheet1].Range("D49", "D55"))

.. is equivalent to

max_value = WorksheetFunction.Max([Sheet1].Range("D49:D55"))

I think Ron meant

max_value = WorksheetFunction.Max([Sheet1].Range("D49, D55"))

**Ron Coderre** · 07-20-2008, 06:53 PM

Shg, thanks so much for catching that error!
I'd only tested it on a blank sheet with values in those two cells.
Didn't even notice the code referenced the entire range.