Can you use the following?TestRange = Range("D6:D8")AverageTest = Application.WorksheetFunction.Average(TestRange)