I need to know what is the formulae of adding the two highest/max numbers
within the cells selected.

Hi Camma,

Try this one :
Sub MAX2()
MsgBox "First Max: " & Application.Max(Selection) _
& vbCr & "Second Max: " & Application.Max(Selection) - 1
End Sub


Rgds,

Halim


camma menuliskan:
I need to know what is the formulae of adding the two highest/max numbers
within the cells selected.

Var1 = WorksheetFunction.Large(Range("A1:A5"),1) + _
Worksheetfunction.Large(Range("A1:A5"),2)

Charles Chickering

camma wrote:
I need to know what is the formulae of adding the two highest/max numbers
within the cells selected.