Excel VisualBasic Script

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