Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
=LARGE(array,k)
=LARGE(A1:A100,2)
Function MaxVisible(rng As Range)
Dim Max, MaxVal
MaxVal = Application.Max(rng)
Max = 0
For Each cell In rng
With cell
If .Value < MaxVal Then _
If .Value > Max Then Max = .Value
End With
Next
MaxVisible = Max
End Function