Sub refStatse()
Debug.Print "MIN: " & Application.WorksheetFunction.Min(Range("A1:A10"))
Debug.Print "MAX: " & Application.WorksheetFunction.Max(Range("A1:A10"))
Debug.Print "SUM: " & Application.WorksheetFunction.Sum(Range("A1:A10"))
Debug.Print "AVG: " & Format(Application.WorksheetFunction.Average(Range("A1:A10")), "#0.00")
End Sub