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