Sub func() Debug.Print Application.WorksheetFunction.Power(2, 3) Debug.Print Application.WorksheetFunction.Average(5, 7, 9) Debug.Print Application.WorksheetFunction.StDev(3, 7, 11) End Sub