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.