VBA Code to Highlight Max Value In The Range in Excel

VBA code that you can use to highlight the maximum value in a range in Excel.

VBA Code:

Sub HighlightMaxValue()
    Dim rng As Range
    Dim cell As Range
    Dim maxVal As Double
    
    ' Set the range where you want to find the maximum value
    Set rng = Range("A1:D10")
    
    ' Initialize maxVal with the minimum possible value
    maxVal = -1E+20
    
    ' Find the maximum value in the range
    For Each cell In rng
        If IsNumeric(cell.Value) Then
            If cell.Value > maxVal Then
                maxVal = cell.Value
            End If
        End If
    Next cell
    
    ' Highlight the cell(s) with the maximum value
    For Each cell In rng
        If cell.Value = maxVal Then
            cell.Interior.Color = RGB(255, 255, 0)
        End If
    Next cell
    
    ' Inform the user that the highlighting is complete
    MsgBox "The cell(s) with the maximum value have been highlighted!"
End Sub


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