# Custom Average Function in Excel VBA

Below we will look at a program in **Excel VBA** which creates a **User Defined Function** that calculates the **average** of a randomly selected range excluding one or more values that are outliers and shouldn't be averaged.

Situation:

User defined functions need to be placed into a module.

1. Open the Visual Basic Editor and click Insert, Module.

2. Add the following code line:

The name of our Function is CUSTOMAVERAGE. The part between the brackets means we give Excel VBA a range and two Integer variables as input. We name our range rng, one Integer variable we call lower, and one Integer variable we call upper, but you can use any names.

3. Next, we declare a Range object and two variables of type Integer. We call the Range object cell. One Integer variable we call total and one Integer variable we call count.

4. We want to check each cell in a randomly selected range (this range can be of any size). In Excel VBA, you can use the For Each Next loop for this. Add the following code lines:

Next cell

Note: rng and cell are randomly chosen here, you can use any names. Remember to refer to these names in the rest of your code.

5. Next, we check for each value in this range if it falls between the two values (lower and upper). If true, we increment total by the value of the cell and we increment count by 1. Add the following code lines to the loop.

total = total + cell.Value

count = count + 1

End If

6. To return the result of this function (the desired average), add the following code line outside the loop.

7. Don't forget to end the function. Add the line:

8. Now you can use this function just like any other Excel function to calculate the average of numbers that fall between two values.

Result:

As a check, you can delete all values that are lower than 10 and higher than 30 and use the standard Average function in Excel to see if Excel calculates the same average as our custom average function.

Our custom average function works! Note: this function is only available in this workbook.