Use the LARGE function to determine the kth-largest value in a range
Sub func() SecondHighest = WorksheetFunction.Large(range("NumberList"), 2) End Sub