Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Call worksheet function directly

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