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
    Else
        CalculateAverage = 0
    End If
End Function

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment