Sub highlightMaxValue() Dim rng As Range For Each rng In Selection If rng = WorksheetFunction.Max(Selection) Then rng.Style = "Good" End If Next rng End Sub
Highlight Max Value In The Range: It will check all the selected cells and highlight the cell with the maximum value.