VBA Code to Create a Custom Function in Excel

VBA Code:

Function CalculateAverage(rng As Range) As Double
    Dim cell As Range
    Dim total As Double
    Dim count As Integer
    ' Initialize the total and count variables
    total = 0
    count = 0
    ' Loop through each cell in the range
    For Each cell In rng
        ' Check if the cell value is numeric
        If IsNumeric(cell.Value) Then
            ' Add the cell value to the total and increment the count
            total = total + cell.Value
            count = count + 1
        End If
    Next cell
    ' Calculate the average if there are valid values
    If count > 0 Then
        CalculateAverage = total / count
        CalculateAverage = 0
    End If
End Function

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment